《VB小学数学四则运算程序代码》由会员分享,可在线阅读,更多相关《VB小学数学四则运算程序代码(2页珍藏版)》请在人人文库网上搜索。
1、Option Base 1 标识数组下标从1开始Dim x, y, z As IntegerPrivate Sub Command1_Click()Dim a(4) As StringDim b As IntegerText1.Text = Int(10 * Rnd + 0) 文本框1中随机产生0 - 9中的一个数a(1) = +a(2) = -a(3) = *a(4) = /b = Int(4 * Rnd + 1)Label1.Caption = a(b) 标签随机产生“加”、“减”、“乘”、“除”号If Label1.Caption = a(4) ThenText2.Text = Int(。
2、9 * Rnd + 1) 如果标签出现的是“”号,则文本框随机产生中的一个数ElseText2.Text = Int(10 * Rnd + 0) 如果不是则文本框随机产生中的一个数End IfText3.SetFocusEnd SubPrivate Sub Command2_Click()Dim c As SingleIf IsNumeric(Text3.Text) = False ThenMsgBox 请输入数字!, vbOKOnly + vbExclamation, 提示 如果文本框输入的不是数字或没有输入,则提示“请输入数字!”Text3.Text = Text3.SetFocusEls。
3、eSelect Case Label1.CaptionCase +c = Val(Text1.Text) + Val(Text2.Text)Case -c = Val(Text1.Text) - Val(Text2.Text)Case *c = Val(Text1.Text) * Val(Text2.Text)Case /c = Val(Text1.Text) / Val(Text2.Text)End SelectIf Text3.Text = c ThenMsgBox 恭喜你,回答正确!, vbOKOnly + vbInformation, 提示x = x + 1Text4.Text = x。
4、z = z + 10Text6.Text = zElseMsgBox 回答错误! & & 正确结果为 & c, vbOKOnly + vbCritical, 提示y = y + 1Text5.Text = yz = z - 10Text6.Text = zEnd IfEnd IfEnd SubPrivate Sub Form_Load()RandomizeEnd SubPrivate Sub Label1_Change()Text3.Text = End SubPrivate Sub Text1_Change()Text3.Text = End SubPrivate Sub Text2_Change()Text3.Text = End Sub。