小学六年级口算解题器

选项显式

将myre标注为整数

私有子命令1_Click()

if val(text 1 . text)= myrethen msgbox " Yes！""结果" Else MsgBox "是错的！"，，"结果"

zhzsucyg

Text1。SetFocus

末端接头

私有子窗体_Load()

命令1。Caption = "下一问题"

zhzsucyg

末端接头

私有Sub zhzsucyg()

Dim myA为整数，myB为整数，myOp为整数

随机化(计时器)

myA = Int(Rnd * 101)

myB = Int(Rnd * 101)

myOp = Int(Rnd * 4) + 1

Text1。文本= " "

Label1。标题= " "

选择案例myOp

案例1

Label1。myA & amp"+" & amp；myB & amp"="

myre = myA + myB

案例2

Label1。myA & amp“-”& amp；myB & amp"="

myre = myA - myB

案例3

Label1。myA & amp“×”& amp；myB & amp"="

myre = myA * myB

案例4

Label1。myA & amp“”& ampmyB & amp"="

myre = myA / myB

结束选择

末端接头