Dim a，b為整數
私有子窗體_Load()
使不規則化
選項1。值=真
選項4。值=真
a = Str(Int(Rnd * 10 + 1))
b = Str(Int(Rnd * 10 + 1))
Label1。標題= a
標簽3。標題= b
末端接頭
私有子命令1_Click()
x = Val(Text1。正文)
y = Val(Label1。標題)
z = Val(Label3。標題)
選擇Case True
案例選項4。價值
如果x = y + z，那麽
Label5。標題= "√"
其他
Label5。標題= "×"
如果…就會結束
案例選項5。價值
如果x = y - z，那麽
Label5。標題= "√"
其他
Label5。標題= "×"
如果…就會結束
結束選擇
末端接頭
私有子命令2_Click()
Text1。文本= " "
Label5。標題= " "
選擇Case True
案例選項1。價值
Label1。caption = Str(Int(Rnd * 10+1))
標簽3。caption = Str(Int(Rnd * 10+1))
案例選項2。價值
Label1。caption = Str(Int(Rnd * 91+10))
標簽3。caption = Str(Int(Rnd * 91+10))
案例選項3。價值
Label1。caption = Str(Int(Rnd * 901+100))
標簽3。caption = Str(Int(Rnd * 901+100))
結束選擇
如果選項4。那就值了
標簽2。Caption = "+"
其他
標簽2。標題= "-"
如果z & gt那好吧
t =標簽3。標題
標簽3。Caption = Label1。標題
Label1。標題= t
如果…就會結束
如果…就會結束
末端接頭
私有子選項1_Click()
y = Val(Label1。標題)
z = Val(Label3。標題)
Text1。文本= " "
Label1。標題= " "
Label1。caption = Str(Int(Rnd * 10+1))
標簽3。caption = Str(Int(Rnd * 10+1))
如果選項4。那就值了
標簽2。Caption = "+"
其他
標簽2。標題= "-"
如果z & gt那好吧
t =標簽3。標題
標簽3。Caption = Label1。標題
Label1。標題= t
如果…就會結束
如果…就會結束
末端接頭
私有子選項2_Click()
y = Val(Label1。標題)
z = Val(Label3。標題)
Text1。文本= " "
Label5。標題= " "
Label1。caption = Str(Int(Rnd * 91+10))
標簽3。caption = Str(Int(Rnd * 91+10))
如果選項4。那就值了
標簽2。Caption = "+"
其他
標簽2。標題= "-"
如果z & gt那好吧
t =標簽3。標題
標簽3。Caption = Label1。標題
Label1。標題= t
如果…就會結束
如果…就會結束
末端接頭
私有子選項3_Click()
y = Val(Label1。標題)
z = Val(Label3。標題)
Text1。文本= " "
Label5。標題= " "
Label1。caption = Str(Int(Rnd * 901+100))
標簽3。caption = Str(Int(Rnd * 901+100))
如果選項4。那就值了
標簽2。Caption = "+"
其他
標簽2。標題= "-"
如果z & gt那好吧
t =標簽3。標題
標簽3。Caption = Label1。標題
Label1。標題= t
如果…就會結束
如果…就會結束
末端接頭
私有子選項4_Click()
Text1。文本= " "
Label5。標題= " "
標簽2。Caption = "+"
末端接頭
私有子選項5_Click()
y = Val(Label1。標題)
z = Val(Label3。標題)
Text1。文本= " "
Label5。標題= " "
標簽2。標題= "-"
如果z & gt那好吧
t =標簽3。標題
標簽3。Caption = Label1。標題
Label1。標題= t
如果…就會結束
末端接頭
界面不能復制，要自己想。這個有加法和減法。