VB实验任务9_1.doc

实验任务八 课程名称：程序设计基础VB 实验名称——九、循环结构程序设计（2） 一、实验目的： 1.进一步掌握循环语句的基本结构 2.清楚循环流程，掌握循环语句的描述 4.掌握多重循环结构程序的设计方法 二、实验内容（包括实验要求(题目)、实验步骤、程序清单、运行情况）： 程序完善题的做题技巧和方法 建议，先根据程序运行的参考界面和题目要求，分析代码中变量和对象各自的作用（一般从输入或输出方面着手推导和分析），然后填充程序[希望同学们通过实践掌握] 实验1 阅读程序，人工列表写出下列循环的运行次数和执行结果(注意输出格式)，并上机验证结果，并充分使用单步调试工具（单步执行、立即窗口、本地窗口和监视窗口），弄清楚循环执行流程，以及相应变量值的变化情况。  （1）Private Sub Command1_Click() Dim a As Integer, b As Integer, i As Integer a = 10: b = 0 For i = 5 To 1 Step -2 Do a = a - 4 b = b + 1 Loop Until b 2 Or a -1 Next i Print a, b, i End Sub 10 5 -1 （2）Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim i As Integer, j As Integer, k As Integer a = 0: b = 0: c = 0 For i = 1 To 2 For j = i To 2 For k = 1 To j a = a + 1 Next k b = b + a Next j Next i c = a + b Print a + b + c 28 End Sub 实验2实验书103页实验5-11 改错题。窗体如图所示。要求程序运行时，在文本框text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的项目。编程以下程序实现此功能。 在调试时发现，如输入“陈”，可以正确删除所有“陈”的项目，但输入“刘”，但输入“刘”，则只删除了“刘邦”，如图b所示，这说明程序不能适应所有情况，需要修改。 Private Sub Command1_Click() Dim n%, k% n = Len(Text1.Text) For k = 0 To List1.ListCount - 1 If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k End If Next k End Sub 实验3 实验书105页实验5-15 在一个界面上放三个按钮，分别打出下面三幅图。 数字三角形 字母倒三角图形 数字菱形图形 提示如下： （1）方法一：利用单循环实现，循环体内的显示用Sring函数实现，解题的关键是找出循环控制变量与String函数内字符个数的关系，即String（2*i-1,Trim(Str(i))）。其中Str(i)表示将数值型i转换成字符串，Trim函数表示去除字符串两边的空格，因为将数值转换成字符串后，系统自动在数字前符号位，正数为空格，负数为“-”，而String函数只取字符串中的第一个字符，在该题中，由于i为正数，符号位为空格，所以需要用Trim函数。 （2）方法二：利用循环嵌套实现，外层循环控制行数，内层循环控制每行显示字符的个数，解题的关键是找出字符个数m外层循环控制变量i关系，即m=2*i-1，所以可以采用如下程序。 For i=1 to 9 For m=1 to 2*i-1 … Next m Next i 实验4 使用随机函数生成30个学生的成绩，并求其中的最高分和第二高分。 实验5 实验书实验6-5 编程实现求Armstrong数，Armstrong数具有如下特征：一个n位数等于其各位数的n次方之和。例如，153=13+53+33 1634=14+64+34+44 提示：把数值转换成字符串后，利用Mid函数