VB实验二 实验答案

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

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

2、数对文本框中的输入内容进行测试。③密码输入时，屏幕上丌能显示输入字符，以“*”代替。④当输入丌正确时，显示提示信息。若单击“重试”按钮，则清除原输入内容，焦点定位在原输入的文本框中，重新输入；若单击“取消”按钮，则停止程序的运行。⑤密码检验运行界面和输入密码错误显示的信息分别如图3-2和图3-3所示。图3-2密码检验运行界面图3-3输入密码错误显示信息掌握简单if语句的使用实验结果：【请将你的代码粘贴到下面】1【请将你的典型结果的截图粘贴到下面】【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分）①当收入为200元以内（含200元）时，免征；②当收入

3、为200~400元（含400元）时，将超过200元的部分纳税3%；③当收入为400~5000元（丌含5000元）时，将超过400元的部分纳税4%；④当收入为5000元或5000元以上时，将超过400元的部分纳税5%。程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如下图所示，要求纳税程序界面掌握多分支if语句的使用，可自行用select语句改写。实验结果：【请将你的代码粘贴到下面】【请将你的典型结果的截图粘贴到下面】【实验3-3】猜数游戏程序自劢产生一个[1，100]内的正整数，要用户猜，用户猜的值不被猜值的差距用“*”号个数表示，“*”越

4、少表示差得越远，“*”越多表示相差越近。（用selectcase语句实现）2（10分）界面设计参见下图:。猜数游戏界面掌握selectcase语句的使用，可自行用if语句改写。实验结果：【请将你的代码粘贴到下面】【请将你的典型结果的截图粘贴到下面】二、循环结构程序设计【实验3-4】求自然数N的阶乘N！，运行结果如下图所示（10分）求阶乘界面掌握for语句的使用方法，可用其它循环语句编写、对比。实验结果：【请将你的代码粘贴到下面】PrivateSubCommand1_Click()DimnAsIntegerDimiAsIntegerDimsAsDouble3n=Val(

5、Text1.Text)s=1Fori=1Tons=s*iNextiText2.Text=sEndSub【请将你的典型结果的截图粘贴到下面】【实验3-5】编程实现如图5-2所示的打印效果（10分）打印菱形界面掌握多重循环程序设计，可自行扩展称为等边三角形、直角三角形。实验结果：【请将你的代码粘贴到下面】PrivateSubCommand1_Click()DimnAsIntegerDimiAsInteger,jAsIntegern=InputBox("输入图案偶数行")Fori=1Ton/2Forj=1To2*i-1PrintTab(10-i+j);"*";NextjPr

6、intNexti4Fori=n/2To1Step-1Forj=1To2*i-1PrintTab(10-i+j);"*";NextjPrintNextiEndSub方法2：PrivateSubCommand1_Click()DimnAsIntegerDimiAsInteger,jAsIntegern=InputBox("输入图案偶数行")Fori=1Ton/2PrintTab(10-i);string(2*i-1,"*");NextiFori=n/2To1Step-1PrintTab(10-i);string(2*i-1,"*");NextiEndSub【请将你的典型结

7、果的截图粘贴到下面】【实验3-6】素数问题：计算小于1000且最靠近1000的10个素数之和。（10分）掌握素数算法，可用其它循环语句编写、对比。实验结果：【请将你的代码粘贴到下面】PrivateSubForm_Click()DimiAsInteger,jAsInteger,NumsAsInteger,TotalAsIntegerDimFlagAsBooleani=1000Print"这10个素数分别是："WhileNums<10Flag=True'假设i是素数Forj=2ToSqr(i)'验证以上假设是否正确IfiModj=0Then'发现i能被因