求vb编程高手，谢谢了

来源：百度知道编辑：UC知道时间：2024/06/17 16:48:13

1。100内的四则运算
2。结果必须在200以内
3。结果为整数
4。输入结果按enter, 自动判断正确、错误
5。自动进入下一题
6。可以计算至当前为止的准确率

运算结果出来以后，重谢

我以前做过一个

界面没法发给你你看怎么办

Dim a%, b%, c%, d$, e!, f!, a1, b1, chushu

Private Sub Command1_Click()

If Label4 >= 15 Then

msg = MsgBox("每次连续运算不能超过15次", 0, "提示")

Else

f = Val(Text1)

dayin = Label1.Caption & f & " 对了"

dayin1 = Label1.Caption & f & " 错了"

If f = Val(Text2.Text) Then

Picture1.Print dayin

Label6 = Label6 + 1

Label4 = Label4 + 1

Else

Picture1.Print dayin1

Label9 = Label9 + 1

Label4 = Label4 + 1

End If

Comm