vb程序设计 制作答题系统

来源：百度知道 编辑：UC知道 时间：2024/06/19 02:10:24
随机产生两个数和四则运算中的某一个运算，能判断用户给出答案正确与否，最后计算出答题人的成绩！
最好能给个分析过程和流程图，代码。
小弟在这先谢谢各位前辈了！ 急急急！
给的分不多，但已经是小弟的所有分了，希望能帮忙解决下，谢谢

两个需要运算的数字可以用随机函数 rnd 来得到，而四个运算符可以放在数组里面，数组的下标又可以用随机函数取得，则运算符也是随机的，把取得的运算符放在一个标签里 如 label1

然后用选择语句 select 来判断label1.caption 中的运算符 是什么运算符 自己就做什么样的运算 把结果放在一个变量 c 当中

最后用 if 语句判断用户所填的答案与 c 是否相同 相同则正确 不同则错误

代码如下

Dim i As Integer
Dim j As Integer
Private Sub Command1_Click()
Text1.Text = Rnd(1) * 1000
Text2.Text = Rnd(1) * 1000
Dim b As Integer
Dim a(4) As String
a(1) = "+"
a(2) = "-"
a(3) = "*"
a(4) = "/"
b = Int((Rnd * 4) + 1)
Label1.Caption = a(b)
Text3.Text = ""
Text3.TabIndex = "0"
End Sub

Private Sub Command2_Click()
Dim c As Double
Select Case Label1.Caption
Case "+"
c = Text1.Text + Text2.Text
Case "-"
c = Text1.Text - Text2.Text
Case "*"
c = Text1.Text * Text2.Text