VB实验任务8答案.doc

实验任务七课程名称：程序设计基础VB实验名称循环结构程序设计（1）一、实验目的：1.进一步掌握if语句的三种基本结构2.掌握多分支语句select语句的使用3.清楚循环流程，掌握循环语句的描述4.掌握循环结构程序的设计方法二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）：u 程序完善题的做题技巧和方法建议，先根据程序运行的参考界面和题目要求，分析代码中变量和对象各自的作用（一般从输入或输出方面着手推导和分析），然后填充程序希望同学们通过实践掌握实验2有一个阶梯，如果每步跨2阶，最后余1阶；每步跨3阶，最后余2阶；每步跨5阶，最后余4阶；每步跨6阶，最后余5阶；每步跨7阶，正好到达阶梯顶。问阶梯至少有多少阶？方法（1）利用所给的条件，用循环从0开始一一试凑，找到满足条件的数，就停止循环。由于事先不知循环次数可以使用Do循环语句。Private Sub Command1_Click()Dim m As IntegerDo If m Mod 2 = 1 And m Mod 3 = 2 And m Mod 4 = 3 And m Mod 5 = 4 And m Mod 6 = 5 And m Mod 7 = 0 Then Print m Exit Do End If m = m + 1LoopEnd Sub方法（2）由于题目中最后的条件“每步跨7阶，正好到达阶梯顶”，所以阶梯数一定是7的倍数，然后根据同时满足除n余b(n=2,3,4,5,6;b=1,2,3,4,5)的逻辑关系来确定即可。Private Sub Command2_Click()Dim m As Integer, n As IntegerFor m = 7 To 32767 Step 7 If m Mod 2 = 1 And m Mod 3 = 2 And m Mod 5 = 4 _ And m Mod 6 = 5 And m Mod 7 = 0 Then Print m Exit For End IfNext mEnd Sub实验3 实验书实验5-12设窗体上有一个名称为Combo1的组合框，如图所示，并有以下程序。Private Sub Combo1_KeyPress(KeyAscii As Integer) Dim k As Integer If KeyAscii = 13 Then For k = 0 To Combo1.ListCount - 1 If Combo1.Text = Combo1.List(k) Then Combo1.Text = Exit For End If Next k If Combo1.Text Then Combo1.AddItem Combo1.Text End If End IfEnd Sub程序功能：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中的文本添加到列表的尾部。实验4实验书104页实验5-13我国现有13亿人口，设年增长率为1%，编写程序，计算多少年后增加到或超过20亿？Private Sub Form_Click() Dim n As Integer, peoplenum As Double peoplenum = 13 Do n = n + 1 peoplenum = peoplenum * (1 + 0.01) 或者 peoplenum = 13 * (1 + 0.01)n Loop Until peoplenum = 20 或者 While peoplenum 20 Print n; 年后我国人口将达到; peoplenum; 亿End Sub实验5 实验书106页实验5-18 有一个两位数的正整数，将其个位数与十位数对调所生成的数称为对调数，如28是82的对调数。现给定一个两位的正整数，请找到另一个两位数的正整数，使这两个数之和等于它们各自的对调数之和，如56+32=65+23.Private Sub Command1_Click()m = Val(Text1.Text)m1 = (m Mod 10) * 10 + m 10For n = 10 To 99 n1 = (n Mod 10) * 10 + n 10 If m + n = m1 + n1 Then Print nNext nEnd Sub实验6 实验书104页实验5-14在窗体上显示出所有的水仙花数。水仙花数是指一个3位数，其中各位数字立方和等于该数字本身。例如，153=13+53+33，所以153就是水仙花数。Private Sub Command1_Click()Dim m As Integer, a%, b%, c%, n%n = 0For m = 100 To 999 Step 1 a = m 100 b = (m - a * 100) 10 十位数上的数计算有多种表示方法，请同学思考 c = m Mod 10 If a 3 + b 3 + c 3 = m Then Print m; n = n + 1 If n Mod 5 = 0 Then Print End IfNext mPrintEnd SubPrivate Sub Command2_Click()Dim a%, b%, c%, m%For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 m = a