VB实验二 实验答案

1、1实验报告二课程VB计程仪编程实验项目VB控制结构计程仪编程(6学时)成绩专业班姓学号实验日期实验目的(1)分支构造(if、if else、select case )句(2)掌握基本循环控制结构(for-的Do-Loop句(3)循环嵌套掌握素数算法(5)综合利用循环控制结构，解决复杂问题的实验内容1，选择结构计程仪程序设置修订【实验3-1】用户输入的账号和密码(10分)要求：账号超过6位，密码为4位，本问题的密码为“确定”。 您可以在IsNumeric上测试您的字符框条目，即使您的帐户包含非数字字符。 输入密码时，画面上不显示输入文字，替换为“*”。 输入：如果正确，则显示信息。 喀呖声“重试

2、”按钮可清除原始输入内容，聚焦于原始输入的字符框并重新输入。喀呖声“取消”按钮可停止执行程序计程仪。 密码检查运行画面和输入密码错误显示的信息分别如图3-2和图3-3所示。 图3-2密码检查运行画面图3-3输入密码错误表示信息，掌握简单的if文的使用实验结果： 【请将你的查询密码贴在下面】2【请将你典型结果的截图贴在下面】 【实验3-2】税务部门征收所得税，规定如下收入400 5000元(不含5000元)的，超过400元的部分纳税占4%； 收入在5000元或5000元以上的，超过400元的部分纳税为5%。 执行计程仪程序后，喀呖声表格，在输入者计程仪中输入收入数，则计程仪程序输出纳税金额，执行

3、状况如下图所示，要求纳税计程仪程序界面掌握多分支if语句的使用，可以用自各儿用select语句改写。 实验结果： 【请将你的查询密码贴在下面】 【请将你典型结果的截图贴在下面】 【实验3-3】男同性恋柱计程仪程序从自各儿中生成1，100内的正整数，用“*”的号码个数表示让用户能猜，用户猜不到的值之差脑筋急转弯男同性恋接口能够掌握select case语句的使用，用自各儿用if语句改写。 实验结果： 【请将你的查询密码贴在下面】 【请将你典型结果的截面图贴在下面】二、循环结构计程仪编程【实验3-4】求出自然数n的阶乘n，执行结果如下图所示(10点)阶乘接口，掌握for语句的使用方法实验结果： 【

4、请将你的查询密码贴在下面】privatesubcommand1_click () dimnasintegerdimiasintegerdimsasdouble4n=val (text1. text I next I text2. text=s end sub【请在下面贴上你典型结果的屏幕截图】 【实验3-5】图5 实现打印菱形接口的预计程仪编程掌握多重循环预计程仪编程，可自行扩展称为全等三角形、垂直角三角形。实验结果： 【请将您的查询密码贴在下面】private sub command1_ click () dimnasintegerdimiasinteger，j As Integer n=I

5、nputBox (输入模式双位数定行。 *； nextjprintnexti5fori=n/2 to 1步骤1 forj=1to2* I-1打印数据库(10-ij )。 *； 下一个打印下一个结束子方法2 :私有子命令1 _ click ()指令集，j as integer n=输入字符串(2* I-1，* ) 下一步打印数据库(10-I )。 字符串(2* I-1，* )； Next i End Sub【请将你典型结果的屏幕截图贴在下面】 【实验3-6】质数问题：修正小于1000且接近1000的10个质数之和。 (10点)掌握素数算法，可通过其他循环语句制作、比较。 实验结果： 【请将您的查

6、询密码粘贴在下面】私有subform _ click () dimi as integer、j As Integer、Nums As Integer、totalasintegerdimflagasbooleani=1000 While Nums Sqr(i) Then分别根据标志以素数Nums=Nums 1判断有木有，在计数器上加上1，total的ifnums=10 thenexitforendifnextprint换行打印这10个素数的总和I。 *； j；=； i * j； Next j Print Next i End Sub【请在下面粘贴你典型结果的屏幕截图】 【实验3-10】请任意输入一个或多个英文句子，计算这些句子中的单词数。 (10分)根据实际问题找到解决办法，结合循环和分支构造句解决问题。 提示：解决这个问题，在特殊情况下有多种留心方法。 10实验结果： 【请将您的查询密码贴在下面】private sub command1_ click () dimcontentasstringdimcountasintegercontent=trim (text1.count=0f o