vb实验报告第三章

《vb实验报告第三章》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、一、实验目的1.掌握关系表达式和逻辑表达式的使用2.掌握If语句的使用方法3.掌握SelectCase语句的使用方法二、实验内容（任选4个题目）1.实验3・1【内容描述】设计一个将产生的三个随机数排大小的程序。程序运行后，单机“新数据”按钮,产生三个两位数的随机数并显示在文本框中；单机“排大小”按钮，三个数按由大到小的顺序排列并显示在文本框屮。【分析】（1）界而分析（用到哪些控件）标签、文本框、命令按钮控件（2）程序分析（用到哪些算法和关键技术）关系运算符与关系表达式单只If语句【设计】（1）界而设计（给出界而截图）(2)代码设计(给出程序代码)Dima%,b%,c%Privat

2、eSubCommandl_Click()a=Int(90*Rnd+10)b=Int(90*Rnd+10)c=Int(90*Rnd+10)Text1.Text=aText2.Text=bText3.Text=cEndSubPrivateSubCommand2_Click()DimtempAsIntegerIfa

3、rm_Load()RandomizeEndSub【运行结果】(给出运行结果界面截图)1.实验3・2【内容描述】设计一个做加法运算的程序。单击“出题”按钮，程序产生两个两位数的随机数并显示在文本框屮；当输入两位数和后，单击“判题”按钮，如果输入结果正确,则提示做题止确的信息，否则提示做题错误信息；再次单击“出题”按钮，程序就会重新岀一个加法题，用户可以再做。【分析】(1)界而分析(用到哪些控件)三个标签三个文本框两个命令按钮(2)程序分析(用到哪些算法和关键技术)逻辑运算符与逻辑表达式双分支If语句【设计】(1)界而设计(给岀界而截图)(2)代码设计(给出程序代码)PrivateS

4、ubCommandl_Click()RandomizeText1.Text=Str(Int(Rnd*90+10))Text2.Text=Str(Int(Rnd*90+10))Text3.Text=Text3.SetFocusEndSubPrivateSubCommand2_Click()DimdaAsIntegerda=Val(Text3.Text)Ifda=Val(Textl.Text)+Val(Text2.Text)ThenMsgBoxC做对了”)ElseMsgBoxC做错了”)EndIfEndSub【运行结果】(给出运行结果界面截图)2.实验3・3【内容描述】设计一个计算顾

5、客本次购物的优惠价格的程序。首先输入顾客本次购物金额，然后单击“计算优惠价”按钮，计算并显示优惠价格。【分析】（3）界面分析（用到哪些控件）标签、文本框、命令按钮（4）程序分析（用到哪些算法和关键技术）多分支SelectCase语句【设计】（1）界而设计（给出界而截图）(2)代码设计(给出程序代码)PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Textl.Text)Ifx<1000Theny=xElseIfx<2000Theny=0.9*xElseIfx<3000Theny=().85*xElseIfx<5000The

6、ny=0.8*xElsey=0.75*xEndIfEndIfEndIfEndIfText2.Text=yEndSub【运行结果】(给出运行结果界面截图)2.实验3・4【内容描述】设计一个账号和密码输入的验证程序，程序运行后，首先输入账号，如果账号不是6位数字，则提示账号错误；输入合法账号后输入密码，然后单击“验证”按钮，如果密码不正确，提示“密码错误”信息，如果单击“重试”按钮，则清空密码文本框并定焦点于此，等待重新输入密码，如果单击“取消”按钮则结束程序；如果密码正确，则提示欢迎信息。【分析】(5)界面分析(用到哪些控件)标签、文本框、命令按钮（6）程序分析（用到哪些算法和关键

7、技术）多分支SelectCase语句【设计】（1）界面设计（给岀界面截图）（2）代码设计（给出程序代码）DimiAsIntegerIfText2.Text<>"wang"Theni=MsgBox（”密码错误”,5+vbExclamation,"警告"）Ifio4ThenEndElseText2.Text="nText2.SetFocusEndIfElseMsgBox（”欢迎进入木系统”）EndIfEndSubPrivateSubForm_Load（）Text1.Text二””Te