189 8069 5689
两个需要运算的数字可以用随机函数 rnd 来得到，而四个运算符可以放在数组里面，数组的下标又可以用随机函数取得，则运算符也是随机的，把取得的运算符放在一个标签里 如 label1
潮南ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为成都创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：028-86922220（备注：SSL证书合作）期待与您的合作！
然后用选择语句 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
Case "/"
c = Text1.Text * Text2.Text
End Select
If Text1.Text = "" Then
MsgBox "请先选题"
Else
If Text3.Text = "" Then
MsgBox "请先做题"
Else
If Text3.Text = c Then
Label6.Caption = "正确"
i = i + 1
Else
Label6.Caption = "错误" Space(3) "正确结果为" c
j = j + 1
End If
End If
End If
End Sub
Private Sub Command3_Click()
Label7.Caption = i
Label8.Caption = j
End Sub
Private Sub Form_Load()
End Sub
先建一个frame！
建四个CheckBox,
分别是CheckBox1，CheckBox2，CheckBox3，CheckBox4，把Caption修改成你的答案！
假设把正确答案写在CheckBox2
则在CheckBox1，CheckBox3，CheckBox4里写入语句
Private Sub Check1_Click()
If Check1.Value = 1 Then
MsgBox "正确答案是第二个", vbOKOnly + vbInformation + 0, "提示"
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
MsgBox "正确答案是第二个", vbOKOnly + vbInformation + 0, "提示"
End If
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then
MsgBox "正确答案是第二个", vbOKOnly + vbInformation + 0, "提示"
End If
End Sub
第二题在建一个Frame
以此类推……
最简单的是定义个单精度变量，比如n
然后用到If...Then... 判断语句。
举例说明：1+1=2 判断这个语句
if text1.text="2" then n+=20 '这个数值是可以随便设置的，就是这道题目的分值。
如果有什么不明白可以QQ联系我。