第5章 循环结构程序设计 2013 5 29.pptVIP

5.1 For…Next循环语句 1．For…Next语句的语法格式 For…Next语句的语法格式为： For 〈循环变量〉=〈初值〉 To 〈终值〉 [Step 〈步长〉] [〈语句组1〉] [ Exit For ] [〈语句组2〉] Next [〈循环变量〉] ======使用DO循环判断是否的是否为素数=========== s = 0: i = 2 Do While i = Sqr(n) And s = 0 If n Mod i = 0 Then s = 1 Else i = i + 1 End If Loop ===================================== If s = 0 Then a = 是一个素数 Else a = 不是素数 End If Label1.Caption = Str(n) a End Select Text1.SetFocus 例5.10 编一程序，输出下列所示的图形 本例可采用两重循环来实现。外循环控制输出7行，内循环控制每行输出要求的字符数。 在进入内循环之前，使用Print Tab()来对起始输出位置定位，退出内循环后，使用Print来控制换行。 (1)Print方法的 Tab(n) 参数：用来将插入点定位在绝对列号上，这里，n 为列号。使用无参数的 Tab(n) 将插入点定位在下一个打印区的起始位置。 （2） Print i输出的是前后有空格的数字i；Print Chr(i + 48)输出的是前后无空格的字符i 采用Print直接在窗体上输出结果，程序代码如下： Private Sub Form_Load() Show For i = 1 To 7 Print Tab(10 - i); For j = 1 To 2 * i - 1 Print Chr(i + 48); Next j Print Next i End Sub Print Chr(i+48)与Print i有所不同 (1)分析：设一元硬币为a枚，二元硬币为b枚，五元硬币为c枚，可列出方程 a+b+c=10 a+2b+5c=25采用两重循环，外循环变量a从0～10，内循环变量b从0～10 (2)创建应用程序的用户界面 (3)编写程序代码 程序通过Print方法把处理结果输出在标签的下方。 CurrentX = 0: CurrentY = 1500 确定开始显示的坐标 Print , 五元, 二元, 一元 n = 0 记录解的组数 For a = 0 To 10 For b = 0 To 10 c = 10 - b - a If a + 2 * b + 5 * c = 25 And c = 0 Then n = n + 1 Print (; n; ), c, b, a End If Next b, a 5.3 列表框与组合框 列表框和组合框都能为用户提供若干个选项，供用户从中任意选择 5.3.1 列表框(ListBox) List属性：字符型数组, 存放列表 框的表项数组的下标从0开始。 例如，List1.List(0)的值为“教授”， List1.List(1)的值为“副教授” 。 ListCount属性：表项数目 Text属性：当前选定表项的文本内容 ListIndex属性：返回已选定表项的顺序号(索引)。若未选定任何项，则ListIndex的值为-1 Selected属性：逻辑型数组，表示列表框中某一表项是否被选中 假设列表框List1中有四个表项，并已选定第2项，则 有： List1