VB小学数学四则运算程序代码.doc

《VB小学数学四则运算程序代码.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、OptionBase1'标识数组下标从1开始Dimx,y,zAsIntegerPrivateSubCommand1_Click()Dima(4)AsStringDimbAsIntegerText1.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)'标签１随机产生“加”、“减”、“乘”、“除”号IfLabel1.Caption=a(4)ThenText2.Text=Int(9*Rnd+1)'如果标签１出

2、现的是“／”号，则文本框２随机产生１－９中的一个数ElseText2.Text=Int(10*Rnd+0)'如果不是则文本框２随机产生０－９中的一个数EndIfText3.SetFocusEndSubPrivateSubCommand2_Click()DimcAsSingleIfIsNumeric(Text3.Text)=FalseThenMsgBox"请输入数字!",vbOKOnly+vbExclamation,"提示"'如果文本框３输入的不是数字或没有输入，则提示“请输入数字!”Text3.Text=""Text3.SetFocusElseSele

3、ctCaseLabel1.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)EndSelectIfText3.Text=cThenMsgBox"恭喜你，回答正确！",vbOKOnly+vbInformation,"提示"x=x+1Text4.Text=xz=z+10Text

4、6.Text=zElseMsgBox"回答错误！"&""&"正确结果为"&c,vbOKOnly+vbCritical,"提示"y=y+1Text5.Text=yz=z-10Text6.Text=zEndIfEndIfEndSubPrivateSubForm_Load()RandomizeEndSubPrivateSubLabel1_Change()Text3.Text=""EndSubPrivateSubText1_Change()Text3.Text=""EndSubPrivateSubText2_Change()Text3.Text=""EndSu

5、b