求vb代码:按一个按钮随机出现一道有两个100到999之间的数组成的计算题,如123+659,569×265.输入结果后有一个按钮是判断对错的,求这个按钮的单击事件代码(第一个按钮的部分代码如下 Random
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 11:38:09
![求vb代码:按一个按钮随机出现一道有两个100到999之间的数组成的计算题,如123+659,569×265.输入结果后有一个按钮是判断对错的,求这个按钮的单击事件代码(第一个按钮的部分代码如下 Random](/uploads/image/z/3140420-68-0.jpg?t=%E6%B1%82vb%E4%BB%A3%E7%A0%81%EF%BC%9A%E6%8C%89%E4%B8%80%E4%B8%AA%E6%8C%89%E9%92%AE%E9%9A%8F%E6%9C%BA%E5%87%BA%E7%8E%B0%E4%B8%80%E9%81%93%E6%9C%89%E4%B8%A4%E4%B8%AA100%E5%88%B0999%E4%B9%8B%E9%97%B4%E7%9A%84%E6%95%B0%E7%BB%84%E6%88%90%E7%9A%84%E8%AE%A1%E7%AE%97%E9%A2%98%2C%E5%A6%82123%2B659%2C569%C3%97265.%E8%BE%93%E5%85%A5%E7%BB%93%E6%9E%9C%E5%90%8E%E6%9C%89%E4%B8%80%E4%B8%AA%E6%8C%89%E9%92%AE%E6%98%AF%E5%88%A4%E6%96%AD%E5%AF%B9%E9%94%99%E7%9A%84%2C%E6%B1%82%E8%BF%99%E4%B8%AA%E6%8C%89%E9%92%AE%E7%9A%84%E5%8D%95%E5%87%BB%E4%BA%8B%E4%BB%B6%E4%BB%A3%E7%A0%81%EF%BC%88%E7%AC%AC%E4%B8%80%E4%B8%AA%E6%8C%89%E9%92%AE%E7%9A%84%E9%83%A8%E5%88%86%E4%BB%A3%E7%A0%81%E5%A6%82%E4%B8%8B++++Random)
求vb代码:按一个按钮随机出现一道有两个100到999之间的数组成的计算题,如123+659,569×265.输入结果后有一个按钮是判断对错的,求这个按钮的单击事件代码(第一个按钮的部分代码如下 Random
求vb代码:按一个按钮随机出现一道有两个100到999之间的数组成的计算题,如123+659,569×265.
输入结果后有一个按钮是判断对错的,求这个按钮的单击事件代码(第一个按钮的部分代码如下
Randomize
shu1 = Int((999 - 100 + 1) * Rnd + 100)
shu2 = Int((999 - 100 + 1) * Rnd + 100)
Text1.Text = shu1
Text2.Text = shu2
Label4.Caption = Mid("+-×÷", Fix(Rnd() * 4 + 1), 1)
求vb代码:按一个按钮随机出现一道有两个100到999之间的数组成的计算题,如123+659,569×265.输入结果后有一个按钮是判断对错的,求这个按钮的单击事件代码(第一个按钮的部分代码如下 Random
在窗体form1上画一个label1显示算式、一个text1输入答案,一个command1(更换命题)和一个command2(提交答案).然后将以下代码黏贴到form1代码窗运行.你自己的代码做了部分调整放在command1里了:
Dim shu1 As Long, shu2 As Long, fuhao As String
Private Sub Command1_Click()
Randomize
shu1 = Int((999 - 100 + 1) * Rnd + 100)
shu2 = Int((999 - 100 + 1) * Rnd + 100)
fuhao = Mid("+-×÷", Fix(Rnd() * 4 + 1), 1)
Label1.Caption = CStr(shu1) & fuhao & CStr(shu2) & " ="
Text1.Text = ""
Command2.Enabled = False
If Text1.Visible = True Then Text1.SetFocus
End Sub
Private Sub Command2_Click()
Select Case fuhao
Case "+"
If Val(Text1.Text) = shu1 + shu2 Then
MsgBox "答案正确": Command1_Click
Else
MsgBox "答案错误"
End If
Case "-"
If Val(Text1.Text) = shu1 - shu2 Then
MsgBox "答案正确": Command1_Click
Else
MsgBox "答案错误"
End If
Case "×"
If Val(Text1.Text) = shu1 * shu2 Then
MsgBox "答案正确": Command1_Click
Else
MsgBox "答案错误"
End If
Case "÷"
If Val(Text1.Text) = shu1 / shu2 Then
MsgBox "答案正确": Command1_Click
Else
MsgBox "答案错误"
End If
End Select
End Sub
Private Sub Form_Load()
Text1.Text = ""
Command1_Click
End Sub
Private Sub Text1_Change()
If Text1.Text <> "" Then Command2.Enabled = True Else Command2.Enabled = False
End Sub