VB实验二 实验报告-2016

《VB实验二 实验报告-2016》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验报告二课程VB程序设计实验项目VB控制结构程序设计(6学时)成绩专业班级姓名学号实验日期实验目的（1）掌握分支结构（if、ifelse、selectcase）语句（2）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句（3）掌握循环嵌套结构（4）掌握素数算法（5）能综合运用循环控制结构解决较复杂的问题实验内容一、选择结构程序设计【实验3-1】编写一个“系统登录”程序，对用户输入的账号和密码进行检验。（10分）要求：①账号不超过6位数，密码为4位字符，本题的密码假设为“majq”。②账号

2、中不能有非数字字符，可以通过IsNumeric函数对文本框中的输入内容进行测试。③密码输入时，屏幕上不能显示输入字符，以“*”代替。④当输入不正确时，显示提示信息。若单击“重试”按钮，则清除原输入内容，焦点定位在原输入的文本框中，重新输入；若单击“取消”按钮，则停止程序的运行。⑤密码检验运行界面和输入密码错误显示的信息分别如图3-2和图3-3所示。图3-2密码检验运行界面图3-3输入密码错误显示信息掌握简单if语句的使用实验结果：【请将你的代码粘贴到下面】15PrivateSubCommand1_Click()IfTex

3、t2.Text="majq"ThenMsgBox"登录成功",53,"提示信息"ElseMsgBox"密码错误！",53,"输入密码"EndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand3_Click()EndEndSubPrivateSubText1_Change()IfLen(Text1.Text)>6OrNotIsNumeric(Text1.Text)Thenx=MsgBox("账号不能含有非数字

4、字符且不能超过6位！请重新输入",53,"提示信息")EndIfIfx=4ThenText1.Text=""EndIfEndSubPrivateSubText2_Change()15IfLen(Text2.Text)>4Theny=MsgBox("密码不能超过四位数！请重新输入",53,"提示信息")EndIfIfy=4ThenText2.Text=""EndIfEndSub【请将你的典型结果的截图粘贴到下面】【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分）①当收入为200元以内（含200元）时，免

5、征；②当收入为200~400元（含400元）时，将超过200元的部分纳税3%；15③当收入为400~5000元（不含5000元）时，将超过400元的部分纳税4%；④当收入为5000元或5000元以上时，将超过400元的部分纳税5%。程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如下图所示，要求纳税程序界面掌握多分支if语句的使用，可自行用select语句改写。实验结果：【请将你的代码粘贴到下面】PrivateSubForm_Click()x=Val(InputBox("请输入收入数","纳税

6、计算",0))Ifx<=200Theny=0ElseIf400>=xTheny=(x-200)*0.03ElseIf5000>xTheny=0.04*(x-400)Elsey=0.05*(x-400)EndIfPrint"收入数为"&x;"应纳税为："&yEndSub15PrivateSubForm_Load()Dimx!,y!EndSub【请将你的典型结果的截图粘贴到下面】【实验3-3】猜数游戏程序自动产生一个[1，100]内的正整数，要用户猜，用户猜的值与被猜值的差距用“*”号个数表示，“*”越少表示差得越远，“*”

7、越多表示相差越近。（用selectcase语句实现）（10分）界面设计参见下图:。猜数游戏界面掌握selectcase语句的使用，可自行用if语句改写。实验结果：【请将你的代码粘贴到下面】15PrivateSubCommand1_Click()Dima!,b!,x%x=Val(Int(100*Rnd+1))a=Val(Text1.Text)b=Abs(Val(x-a))SelectCasebCaseb=0y="恭喜你答对了"Case20>=b>0y="*"Case40>=b>20y="**"Case60>=b>40y="

8、***"Case80>=b>60y="****"CaseElsey="*****"EndSelectMsgBoxy,0,"结果"EndSub【请将你的典型结果的截图粘贴到下面】二、循环结构程序设计15【实验3-4】求自然数N的阶乘N！，运行结果如下图所示（10分）求阶乘界面掌握for语句的使用方法，可用其它循环语句编