Question

跪求VB高手帮忙解题！急！

设计一个标签，内容为随机产生的10以内的加减乘法算式，另设计一个文本框，可以输入运算结果，当用户按回车键时，判断运算结果是否正确、文本框内容是否数字，以输出不同的msgbox提示，并根据用户的按键决定是否重做或重新出题，最后设计两个按钮分别实现程序结束和记分功能（可以参照课件上的程序，注意其中要修改的部分）

Answer 1

Dim result As Single
Private Sub Command1_Click() '生成题目
Randomize
a = Int(Rnd * (10) + 1)
b = Int(Rnd * (10) + 1)
x = Int(Rnd * (4) + 1)
Select Case x
Case 1
result = a + b
Label1.Caption = a & " + " & b & " =?"
Case 2
result = a - b
Label1.Caption = a & " - " & b & " =?"
Case 3
result = a * b
Label1.Caption = a & " * " & b & " =?"
Case 4
result = a / b
Label1.Caption = a & " / " & b & " =?"
End Select
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If IsNumeric(Text1.Text) = True Then
If Text1.Text = result Then
MsgBox "恭喜你答对了！"
Else
MsgBox "遗憾~答错了"
End If
Else
MsgBox "不是数字 重新输入"
End If
End If
End Sub

其他自己改了。

Answer 2

Dim result As Single
Private Sub Command1_Click() '生成题目
Randomize
a = Int(Rnd * (10) + 1)
b = Int(Rnd * (10) + 1)
x = Int(Rnd * (4) + 1)
Select Case x
Case 1
result = a + b
Label1.Caption = a & " + " & b & " =?"
Case 2
result = a - b
Label1.Caption = a & " - " & b & " =?"
Case 3
result = a * b
Label1.Caption = a & " * " & b & " =?"
Case 4
result = a / b
Label1.Caption = a & " / " & b & " =?"
End Select
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If IsNumeric(Text1.Text) = True Then
If Text1.Text = result Then
MsgBox "恭喜你答对了！"
Else
MsgBox "遗憾~答错了"
End If
Else
MsgBox "不是数字 重新输入"
End If
End If
End Sub

Answer 3

这样做：

设计一个标签，内容为随机产生的10以内的加减乘法算式，

--这里的要点是用rnd函数生成随机数 10 以内的数这样写
dim a as integer
a=cint(rnd * 10)

另设计一个文本框，可以输入运算结果，当用户按回车键时，判断运算结果是否正确、文本框内容是否数字，以输出不同的msgbox提示，

--这里的要点是判断回车键 所以要用到文本框的keydown事件 回车键的keycode应该是13 因此在事件里判断当keycode=13的时候 比较一下文本框和数字的计算结果是否一样 然后用msgbox提示就可以

并根据用户的按键决定是否重做或重新出题，最后设计两个按钮分别实现程序结束和记分功能（可以参照课件上的程序，注意其中要修改的部分）

--这里也不难
程序结束就用 end 方法就可以
积分的功能就是定义一个全局变量 然后每次回答问题的时候 把分数累加到这个变量里 最后msgbox就可以
比如：
dim intResult as long

private sub command1_click()
if 回答正确 then
intResult =intResult + 10 '
end if
end sub

Answer 4

是作业噢，不帮你做