VB实验二 实验答案.pdf

VB实验二 实验答案.pdf

ID:57072901

大小:380.73 KB

页数:10页

时间:2020-08-02

VB实验二 实验答案.pdf_第1页
VB实验二 实验答案.pdf_第2页
VB实验二 实验答案.pdf_第3页
VB实验二 实验答案.pdf_第4页
VB实验二 实验答案.pdf_第5页
资源描述:

《VB实验二 实验答案.pdf》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

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语句的使用实验结果:【请将你的代码粘贴到下面】1【请将你的典型结果的截图粘贴到下面】【实验3-2】税务部门征收所得税,规定如下(用IF语句实现)(10分)①当收入为

3、200元以内(含200元)时,免征;②当收入为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()D

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

6、行")Fori=1Ton/2Forj=1To2*i-1PrintTab(10-i+j);"*";NextjPrintNexti4Fori=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,"*");NextiFor

7、i=n/2To1Step-1PrintTab(10-i);string(2*i-1,"*");NextiEndSub【请将你的典型结果的截图粘贴到下面】【实验3-6】素数问题:计算小于1000且最靠近1000的10个素数之和。(10分)掌握素数算法,可用其它循环语句编写、对比。实验结果:【请将你的代码粘贴到下面】PrivateSubForm_Click()DimiAsInteger,jAsInteger,NumsAsInteger,TotalAsIntegerDimFlagAsBooleani=1000Print"这10个素数分别是:"While

8、Nums<10Flag=True'假设i是素数Forj=2ToSqr(i)'验证以上假设是否正确IfiModj=0Then'发现i能被因

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。