MorganFish 2022-04-02 11:39 采纳率: 80%
浏览 12
已结题

vb6计算出题器报错

之前用vb制作一个计算出题程序,结果总是在判题的时候报错,不知道是哪个细节出错了

img

以下代码
Dim a As Integer
Dim b As Integer
Dim c As Integer
Private Sub Command1_Click(Index As Integer)
Randomize
a = Int(Rnd * c)
Label1.Caption = a
b = Int(Rnd * c)
Label2.Caption = b
End Sub
Private Sub Command2_Click()
If Combo1.Text = "+" Then
 If a + b = Text1.Text Then MsgBox "right", "vbokcancel", "答题结果" Else MsgBox "wrong", "vbokcancel", "答题结果"
End If
If Combo1.Text = "-" Then
 If a - b = Text1.Text Then MsgBox "right", "vbokcancel", "答题结果" Else MsgBox "wrong", "vbokcancel", "答题结果"
End If
If Combo1.Text = "*" Then
 If a * b = Text1.Text Then MsgBox "right", "vbokcancel", "答题结果" Else MsgBox "wrong", "vbokcancel", "答题结果"
End If
If Combo1.Text = "/" Then
 If a / b = Text1.Text Then MsgBox "right", "vbokcancel", "答题结果" Else MsgBox "wrong", "vbokcancel", "答题结果"
End If
End Sub
Private Sub Form_Load()
Combo1.AddItem "+"
Combo1.AddItem "-"
Combo1.AddItem "*"
Combo1.AddItem "/"
c = Val(InputBox("请输入出题范围", "出题范围"))
End Sub
能否帮忙看看
  • 写回答

1条回答 默认 最新

  • 浪客 2022-04-02 11:53
    关注

    Private Sub Command1_Click(Index As Integer)
    index说明你用了按钮数组了,你得判断一下是哪个按钮的事件

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

问题事件

  • 系统已结题 4月10日
  • 已采纳回答 4月2日
  • 创建了问题 4月2日

悬赏问题

  • ¥20 (标签-AR|关键词-预测分析)
  • ¥15 MATLAB矩阵分离问题
  • ¥15 QT IFW 自定义界面添加lineedit小键盘输入数字无效果
  • ¥15 python thinter动态建立Entry并读取数据
  • ¥150 电路仿真,演示反激变压器升压
  • ¥100 libcurl使用无法连接服务器问题
  • ¥30 链表栈表达式求值求解
  • ¥15 关于龙芯1b,JTAG停止调试服务
  • ¥15 求一个图片中的成交量选股公式
  • ¥15 已知正方形内随机生成坐标matlab