VB实验二 实验报告-2016.doc

实 验 报 告 二课 程VB程序设计实验项目VB控制结构程序设计(6学时)成 绩专业班级姓 名学 号实验日期实验目的（1）掌握分支结构（if、if else、select case）语句（2）掌握基本循环控制结构（For-Next、While-Wend、Do-Loop）语句（3）掌握循环嵌套结构（4）掌握素数算法（5）能综合运用循环控制结构解决较复杂的问题实验内容一、选择结构程序设计【实验3-1】编写一个“系统登录”程序，对用户输入的账号和密码进行检验。（10分）要求： 账号不超过6位数，密码为4位字符，本题的密码假设为“majq”。 账号中不能有非数字字符，可以通过IsNumeric函数对文本框中的输入内容进行测试。 密码输入时，屏幕上不能显示输入字符，以“*”代替。 当输入不正确时，显示提示信息。若单击“重试”按钮，则清除原输入内容，焦点定位在原输入的文本框中，重新输入；若单击“取消”按钮，则停止程序的运行。 密码检验运行界面和输入密码错误显示的信息分别如图3-2和图3-3所示。 图3-2 密码检验运行界面 图3-3 输入密码错误显示信息掌握简单if语句的使用实验结果：【请将你的代码粘贴到下面】Private Sub Command1_Click()If Text2.Text = majq ThenMsgBox 登录成功, 53, 提示信息ElseMsgBox 密码错误！, 53, 输入密码End IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Text1_Change()If Len(Text1.Text) 6 Or Not IsNumeric(Text1.Text) Thenx = MsgBox(账号不能含有非数字字符且不能超过6位！请重新输入, 53, 提示信息)End IfIf x = 4 ThenText1.Text = End IfEnd SubPrivate Sub Text2_Change()If Len(Text2.Text) 4 Theny = MsgBox(密码不能超过四位数！请重新输入, 53, 提示信息)End IfIf y = 4 ThenText2.Text = End IfEnd Sub【请将你的典型结果的截图粘贴到下面】【实验3-2】税务部门征收所得税，规定如下（用IF语句实现）（10分）当收入为200 元以内（含200元）时，免征； 当收入为 200 400 元（含400元）时，将超过 200 元的部分纳税 3% ； 当收入为 400 5000元（不含5000元）时，将超过 400 元的部分纳税 4% ；当收入为 5000 元或5000元以上时，将超过400元的部分纳税5% 。程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况如下图所示 ，要求纳税程序界面掌握多分支if语句的使用，可自行用select语句改写。实验结果：【请将你的代码粘贴到下面】Private Sub Form_Click()x = Val(InputBox(请输入收入数, 纳税计算, 0)If x = x Then y = (x - 200) * 0.03ElseIf 5000 x Then y = 0.04 * (x - 400)Else y = 0.05 * (x - 400)End IfPrint 收入数为 & x; 应纳税为： & yEnd SubPrivate Sub Form_Load()Dim x!, y!End Sub【请将你的典型结果的截图粘贴到下面】【实验3-3】猜数游戏程序自动产生一个1，100内的正整数，要用户猜，用户猜的值与被猜值的差距用“*”号个数表示，“*”越少表示差得越远，“*”越多表示相差越近。（用select case语句实现）（10分）界面设计参见下图:。猜数游戏界面掌握select case语句的使用，可自行用if语句改写。实验结果：【请将你的代码粘贴到下面】Private Sub Command1_Click()Dim a!, b!, x%x = Val(Int(100 * Rnd + 1)a = Val(Text1.Text)b = Abs(Val(x - a)Select Case bCase b = 0y = 恭喜你答对了Case 20 = b 0y = *Case 40 = b 20y = *Case 60 = b 40y = *Case 80 = b 60y = *Case Elsey = *End Select MsgBox y, 0, 结果 End Sub【请将你的典型结果的截图粘贴到下面】二、循环结构程序设计【实验3-4】求自然数 N 的阶乘 N！，运行结果如下图所示（10分）求阶乘界面掌握for语句的使用方法，可用其它循环语句编写、对比。实验结果：【请将你的代码粘贴到下面】Private Sub Command1_Click()M = 1N = Val(Text1.Text)For i = 1 To NM = M * iNext iText2.Text = MEnd SubPrivate Sub Form_Load()Dim M%, N%End Sub【请将你的典型结果的截图粘贴到下面】【实验3-5】编程实现如图5-2所示的打印效果（10分）打印菱形界面掌握多重循环程序设计，可自行扩展称为等边三角形、直角三角形。实验结果：【请将你的代码粘贴到下面】Private Sub Command1_Click()For i = 1 To 4 For j = 1 To (2 * i - 1) Print Tab(100 - i + j); *; Next jNext iFor i = 4 To 1 Step -1 For j = 1 To (2 * i - 1) Print Tab(100 - i + j); *; Next j Next iEnd Sub【请将你的典型结果的截图粘贴到下面】【实验3-6】素数问题：计算小于1000且最靠近1000的10个素数之和。（10分）掌握素数算法，可用其它循环语句编写、对比。实验结果：【请将你的代码粘贴到下面】Private Sub Form_Click()Sum = 0i = 0Print 小于1000且最靠近1000的10个素数有：For x = 997 To 5 Step -2 For y = 2 To Int(Sqr(x) If x Mod y = 0 Then Exit For Next y If y Int(Sqr(x) Then M = x Print x i = i + 1 Sum = Sum + Val(M) End If If i = 10 Then Exit For Next x Print 小于1000且最靠近1000的10个素数之和为： & Sum End SubPrivate Sub Form_Load()Dim x%, y%End Sub【请将你的典型结果的截图粘贴到下面】三、常见程序设计【实验3-7】编写一个简易计算器编写程序计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+当第i项的值10-5时计算结束结束。（10分）掌握Doloop语句的使用实验结果：【请将你的代码粘贴到下面】Private Sub Form_Click()s = 0n = 1Doa = 2 / (n 2 - n + 2)s = s + an = n + 1Loop Until a Int(Sqr(i) Then List1.AddItem i End If Next i End Sub【请将你的典型结果的截图粘贴到下面】【实验3-9】编写程序，在窗体上输出上三角形式的九九乘法表。（10分）掌握多重For循环程序设计实验结果：【请将你的代码粘贴到下面】Private Sub Form_Click()For i = 1 To 9 For j = 1 To i Print i; *; j; =; i * j; Next j Print Next i End Sub【请将你的典型结果的截图粘贴到下面】【实验3-10】任意输入一个或者多个英文句子，统计这些句子中的单词数量。（10分）根据实际问题，找出解决方案，结合循环和分支结构语句，解决问题。提示：有很多种方法可以解决这个问题，注意特殊情况。实验结果：【请将你的代码粘贴到下面】Private Sub Command1_Click()n = 0 For i = 1 To Len(Text1.Text) Step 1a = Mid