UC知道VB操作题
来源：百度知道 编辑：UC知道 时间：2024/06/21 20:02:13
4、 设计一个程序，用窗体模拟黑板，鼠标单击窗体时窗体上输出提问，双击时显示回答。
题目分析：把窗体装扮成黑板模样，要设置窗体的BackColor属性为黑色，ForeColor 属性为白色（模拟粉笔字的颜色）。而单击、双击时的输出显示，可以在Click、DblClick 事件里用Print和Cls方法来实现。（选做）
题目分析：把窗体装扮成黑板模样，要设置窗体的BackColor属性为黑色，ForeColor 属性为白色（模拟粉笔字的颜色）。而单击、双击时的输出显示，可以在Click、DblClick 事件里用Print和Cls方法来实现。（选做）
选做？呵呵 你可真有意思 没分还真高调
不过算了
你说的那么透彻按说你也该会啊。。。
不过 你说的出题是什么意思？是什么题？加减乘除？还是？
另外 双击显示回答 这个回答是你事先录入的还是你自己随机答得？这个你都没有说清楚。
那我就胡乱猜测吧，哈哈，小学算术公测版：
Dim m1%
Dim m2%
Dim sign%
Dim result As Single
Dim flag As Boolean
Private Sub Form_Load()
Form1.Caption = "小学算术测试"
Form1.BackColor = RGB(0, 0, 0)
Form1.ForeColor = RGB(255, 255, 255)
End Sub
Private Sub Form_Click()
flag = Not flag
If flag Then
Cls
Call pro
Else
Print "答案是："; result
End If
End Sub
Private Sub pro()
Randomize
m1 = Int(100 * Rnd)
m2 = Int(100 * Rnd)
sign = Int(4 * Rnd)
Select Case sign
Case 1
Print m1; "+"; m2; "=?"
result = m1 + m2
Case 2
Print m1; "-"; m2; "=?"
result = m1 - m2
Case 3
Print m1; "*"; m2; "=?"
result = m1 * m2
Case Else
If m2 = 0 T