100以内加减法

1、首先，图片不好看，你可以自己选择替换！
2、取消了清除按钮，因为出题按钮可以取代它。
3、代码说明：
Dim a1, a2　　申明变量
-----------------------------------
Private Sub CommandButton1_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
Image1.Visible = False
Image2.Visible = False　　以上代码用于变量初始化
a1 = Int(100 * Rnd)
a2 = Int(100 * Rnd)　　　　以上代码用于获取变量随机值
TextBox1.Value = a1　　　　
TextBox2.Value = a2　　　　给文本框赋值
End Sub
---------------------
Private Sub CommandButton2_Click()
If Int(TextBox3.Value) = a1 + a2 Then
Image1.Visible = True
Else
Image2.Visible = True
End If　　　　　　　　　　　　判断结果以反馈图片
End Sub

-------------------------
If a2 > a1 Then
t = a2
a2 = a1
a1 = t
End If　　　此判断语句是为确保被减数大于等于减数

(2008-03-25 11:06:29, Size: 165 KB, Downloads: 153)