资源描述
1 实 验 报 告 二 课 程 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 语句的使用 实验结果： 【 请将你的代码粘贴到下面 】 2 【 请将你的 典型结果的截图粘贴到下面 】 【实验 3-2】 税务部门征收所得税，规定如下 （ 用 IF 语句实现 ） （ 10 分 ） 当收入为 200 元以内（含 200 元）时，免征； 当收入为 200 400 元（含 400 元）时，将超过 200 元的部分纳税 3% ； 当收入为 400 5000 元（丌含 5000 元）时 ，将超过 400 元的部分纳税 4% ； 当收入为 5000 元或 5000 元以上时，将超过 400 元的部分纳税 5% 。 程序运行后，单击窗体，在输人对话框中输入收入数，程序将输出纳税金额，运行情况 如 下 图所示 ，要求 纳税程序界面 掌握 多分支 if 语句的使用 ，可自行用 select 语句改写 。 实验结果： 【 请将你的代码粘贴到下面 】 【 请将你的 典型结果的截图粘贴到下面 】 【实验 3-3】 猜数游戏 程序自劢产生一个 1， 100内的正整数，要用户猜，用户猜的值不被猜值的差距用“ *” 号个数表示，“ *”越少表示差 得越远，“ *”越多表示相差越近。 （ 用 select case 语句实现 ） 3 （ 10 分 ） 界面设计参见 下 图 :。 猜数游戏界面 掌握 select case 语句的使用 ，可自行用 if 语句改写 。 实验结果： 【 请将你的代码粘贴到下面 】 【 请将你的 典型结果的截图粘贴到下面 】 二 、 循环 结构程序设计 【实验 3-4】 求自然数 N 的阶乘 N！ ，运行结果如 下 图所示 （ 10 分 ） 求阶乘界面 掌握 for 语句的使用方法，可用其它循环语句编写、对比 。 实验结果： 【 请将你的代码粘贴到下面 】 Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim s As Double 4 n = Val(Text1.Text) s = 1 For i = 1 To n s = s * i Next i Text2.Text = s End Sub 【 请将你的 典型结果的截图粘贴到下面 】 【实验 3-5】 编程实现如图 5-2 所示的打印效果 （ 10 分 ） 打印菱形界面 掌握 多重循环程序设计，可自行扩展称为等边三角形、直角三角形 。 实验结果： 【 请将你的代码粘贴到下面 】 Private Sub Command1_Click() Dim n As Integer Dim i As Integer, j As Integer n = InputBox(输入图案偶数行 ) For i = 1 To n / 2 For j = 1 To 2 * i - 1 Print Tab(10 - i + j); *; Next j Print Next i 5 For i = n / 2 To 1 Step -1 For j = 1 To 2 * i - 1 Print Tab(10 - i + j); *; Next j Print Next i End Sub 方法 2： Private Sub Command1_Click() Dim n As Integer Dim i As Integer, j As Integer n = InputBox(输入图案偶数行 ) For i = 1 To n / 2 Print Tab(10 - i); string(2*i-1,*); Next i For i = n / 2 To 1 Step -1 Print Tab(10 - i); string(2*i-1,*); Next i End Sub 【 请将你的 典型结果的截图粘贴到下面 】 【实验 3-6】 素数问题：计算小于 1000 且最靠近 1000 的 10 个素数之和。 （ 10 分 ） 掌握素数算法 ， 可用其它循环语句编写、对比 。 实验结果： 【 请将你的代码粘贴到下面 】 Private Sub Form_Click() Dim i As Integer, j As Integer, Nums As Integer, Total As Integer Dim Flag As Boolean i = 1000 Print 这 10个素数分别是： While Nums Sqr(i) Then 根据标志判断是否为素数 Nums = Nums + 1 如果是，则计数器加 1， Total = Total + i 将素数 i 累加到变量 Print i; If Nums = 10 Then Exit For End If Next Print 换行 Print 这 10 个素数的总和 i; *; j; =; i * j; Next j Print Next i End Sub 【 请将你的 典型结果的截图粘贴到下面 】 【 实验 3-10】 任意输入一个或者多个英文句子，统计这些句子中的单词数量 。 （ 10 分 ） 根据实际问题 ， 找出解决方案 ， 结合循环和分支结构语句 ， 解决问题 。 提示 ： 有很多种方法 可以解决这个问题 ， 注意特殊情况 。 10 实验结果： 【 请将你的代码粘贴到下面 】 Private Sub Command1_Click() Dim content As String Dim count As Integer content = Trim(Text1.Text) count = 0 For i = 1 To Len(content) Step 1 a = Mid(content, i, 1) a = UCase(a) b = Mid(content, i + 1, 1) b = UCase(b) Rem 相邻两个位置上的字符丌同时为字母，则找到一个单词 If (a = A And a = Z) And (b Z) Then count = count + 1 End If Next i Text2.Text = count End Sub 【 请将你的 典型结果的截图粘贴到下面 】 实验小结 1. 遇到的问题： 2. 对课程的建议：
展开阅读全文