UC知道VB中设计一个算术练习程序
来源：百度知道 编辑：UC知道 时间：2024/09/24 17:14:35
由计算机自动产生一位数的加法练习题。输入答案后，单击确认，如答正确，自动产生下一图，否者重新输入答案。
Dim x, y As Integer
Private Sub Command1_Click()
If Val(Text1.Text) <> (x + y) Then
MsgBox "答案错误，重新输入"
Text1.Text = ""
Else
x = CInt(Rnd() * 10)
y = CInt(Rnd() * 10)
Label1.Caption = x & "+" & y & "="
Text1.Text = ""
End If
End Sub
Private Sub Form_Load()
x = CInt(Rnd() * 10)
y = CInt(Rnd() * 10)
Label1.Caption = x & "+" & y & "="
End Sub