关于vb一个简单的程序！！～高手帮个忙

来源：百度知道 编辑：UC知道 时间：2024/05/24 09:56:49
有三个textbox，前两个会随机产生100之内的数字，后一个是填答案的，
下面写的对吗，
if val(text1.text)+text2.text=val(text3.text) then
n=n+1

最后输出做对的题数
怎么写？？？
前两个textbox随机产生数字，第三个是给学生填答案。怎么确定他天的答案是否准确，并记下次数

不明白你的意思，第三个textbox是填写前两个的和吗
Private Sub Form_Load()
Randomize
Text1.Text = Int(Rnd * 100)
Text2.Text = Int(Rnd * 100)
Text3.Text = Int(Text2.Text) + Int(Text1.Text)
End Sub

Private Sub Command1_Click()
Static 正确 As Integer
Dim 和 As Integer
和 = Val(Text1.Text) + Val(Text2.Text)
If Val(Text3.Text) = 和 Then 正确 = 正确 + 1
Print "已正确" & 正确 & "次"
End Sub

Private Sub Form_click() '点击窗体 生成随机数
Randomize
Text1.Text = Int(Rnd * 100)
Text2.Text = Int(Rnd * 100)
End Sub

Dim a, n, m As Long

Private Sub Command1_Click()
Cls
If Text3 = Val(Text2.Text) + Val(Text1.Text) Then
n = n + 1
ElseIf Text3 <> Val(Text2.Text) + Val(Text1.Text) Then
m = m + 1
End If
Print "算对的题："; n, "错了的题："; m
End Sub

Private Sub Form_Click()
Randomize
Text1.Text = CInt(Rnd() * 100): Text2.Text =