实验任务八 八 课程名称 ：础 程序设计基础 VB 实验名称——循环结构程序设计（1 1））一、实验目的：
1.清楚循环流程，掌握循环语句的描述 2.掌握循环结构程序的设计方法 二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：
程序完善题的做题技巧和方法 建议，先根据程序运行的参考界面和题目要求，分析代码中变量和对象各自的作用（一般从输入或输出方面着手推导和分析），然后填充程序[ 希望同学们通过实践掌握] 验 实验 1 阅读程序，人工列表写出 下列循环的运行次数和执行结果(注意输出格式)，并上机验证结果，并充分使用 单步调试工具（单步执行、立即窗口、本地窗口和监视窗口），弄清楚循环执行流程，以及相应变量值的变化情况。
（1）Do 循环 Private Sub Command1_Click()Dim x As Integer, y As Integer x = 1: y = 3 Do While x <= 5 x = y Mod 3 + 2 * x-1 y = y +(-1)^ y Loop Print x, y End Sub（2）Private Sub Command1_Click()Dim i As Integer For i=l To 7 Print Tab(8-i)；String(i,Trim(Str(I)))Next I End Sub（3）Private Sub Command1_Click()Dim ch1 As String, ch2 As String, ch3 As String, i As Integer ch1 = "vsa ai": ch2 = "IULBSC" For i = 1 To Len(ch1)ch3 = ch3 & Mid(ch1, i, 1)& Mid(LCase(ch2), i, 1)Print ch3 Next i Print Chr(Asc(ch3)-32)& Mid(ch3, 2, 5);Right(ch3, 6)End Sub 验 实验 2 有一个阶梯，如果每步跨 2 阶，最后余 1 阶；每步跨 3 阶，最后余 2 阶；每步跨 5 阶，最后余 4 阶；每步跨 6余 阶，最后余 5 阶；每步跨 7 阶，正 好到达阶梯顶。问阶梯 最 少有多少阶？（一个界面上放两个按钮实现两种方法）方法（1）利用所给的条件，用循环从 0 开始一一试凑，找到满足条件的数，就停止循环。由于事先不知循环次数可以使用 Do 循环语句。
Private Sub Command1_Click()Dim m As Integer Do If m Mod 2 = 1 And Then Text1.Text = m End If
Loop End Sub 方法（2）由于题目中最后的条件“每步跨 7 阶，正好到达阶梯顶”，所以阶梯数一定是 7 的倍数，然后根据同时满足除 n 余 b(n=2,3,4,5,6;b=1,2,3,4,5)的逻辑关系来确定即可。
Private Sub Command2_Click()Dim n As Integer For n = 7 To 32767 Step 7 "n 整数，循环的最大值可以采用 32767 If n Mod 2 = 1 And Then Print n End If Next n End Sub 验 实验 3 实验书实验 5-12 设窗体上有一个名称为 Combo1 的组合框，如图所示，并有以下程序。
Private Sub Combo1_KeyPress(KeyAscii As Integer)Dim k As Integer If Then For k = 0 To Combo1.ListCount-1 If Combo1.Text = Combo1.List(k)Then Exit For End If Next k If Combo1.Text <> "" Then Combo1.AddItem End If End If End Sub 程序功能：在组合框的编辑区中输入文本后按回车键，则检查列表中 有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中的文本添加到列表的尾部。
验 实验 4 实验书 104 页实验 5-13 我国现有 13 亿人口，设年增长率为 1%，编写程序，计算多少年后增加到或超过 20 亿？ 分析：13*(1+1%)n >=20，求 n ？（（1）掌握循环语句的构造（（2）根据题目的功能要点，学会分析已给代码的编程思路和流程 循环程序填空的 关键 ：首先分析清楚？循环条件？循环体 完善程序代码：
Private Sub Form_Click()Dim n As Integer, peoplenum As Double peoplenum = 13 Do n = n + 1 Loop Print n;" 年后我国人口将达到";peoplenum;" 亿" End Sub 验 实验 5 实验书 106 页实验 5-18 有一个两位数的正整数，将其个位数与十位数对调所生成的数称为对调数，如 28 是 是82 的对调数。现给定一个两位的正整数，请找到另一个两位数的正整数，使这两个数之和等于它们各自的对调数之和，如 如 56+32=65+23.找出所有满足条件的两位数.验 实验 6 实验书 104 页实验 5-14 个 在窗体上显示出所有的水仙花数。水仙花数是指一个 3 位数，其中各位数字立方和等于该数字本身。例如，153=1 3 +5 3 +3 3 以，所以 153 就是水仙花数。
提示如下：
方法一：利用单循环将一个 3 位数逐位分离后进行判断。
例如，设 a 表示百位数，b 表示十位数，c 表示个位数，将一个 3 位数从右边开始逐位分离的程序段如下：
m=123 a=m100 b=(m-a*100)10 "十位数上的数计算有多种表示方法，请同学思考 c=m mod 10 三、实验体会（包括对于本次实验的小结，实验过程中碰到的问题等）
