教程第6章.ppt

2. 使用列表框显示数据 中的文本框改为列表框（如图所示）。 将窗体中的文本框换为列表框，无需修改列表框的属性， 只修改命令按钮的Click事件代码： Private Sub Command1_Click() List1.Clear For n = 1001 To 1100 Step 2 s = 0 For i = 2 To Int(Sqr(n)) If n Mod i = 0 Then s = 1 : Exit For End If Next If s = 0 Then List1.AddItem n 使用列表框的Add方法增加列表项 Next End Sub * 第6章　循环结构程序设计 人民邮电出版社 21世纪高等学校计算机基础课系列教材 循环结构程序设计 For循环结构 For循环用于控制循环次数预知的循环结构。它的语法如下： For 循环变量=初值 To 终值 [Step 步长] 语句块1 [Exit For] [语句块2] Next [循环变量] 其中：循环变量必须是一个数值型的变量，一般多用整型。 循环结构程序设计 T F T F 循环变量小于终值 语句块1 开始(start) …… …… 结束(end) 循环变量的初值 Exit For 语句块2 改变循环变量的值（循环变量加步长） 利用For循环结构显示1000以内的所有能被37整除的自然数。 设计步骤如下： (1) 窗体界面的设计与属性设置。 (2) 编写代码。 编写命令按钮的Click事件代码： Private Sub Command1_Click() a = For n = 1 To 1000 If n Mod 37 = 0 Then a = a Str(n) vbCrLf End If Next Text1.Text = a End Sub 能被37整除的自然数 Do … Loop结构 当不知道循环的次数的时候，或者在循环次数不确定的情况下，就不能再用For循环结构来实现程序的设计了，Visual Basic中提供了一个这样的结构，这就是Do … Loop结构。这种结构有两种不同的形式，下面分别讲解。 Do While … Loop结构 这种形式是首先判断条件是否满足，然后根据条件来决定是否执行后面的语句（循环体）。这种结构的语法形式为： 循环结构程序设计的概念 Do…Loop语句 前测型Do…Loop循环  其语法为 Do [{ While | Until }〈条件〉] [〈语句列1〉] [Exit Do] [〈语句列2〉] Loop F T F 条件表达式？ 语句块 开始(start) …… …… 结束(end) 条件表达式的初值 Exit Do？ 语句块2 改变条件表达式 求累加和1 + 2 + 3 +…+ 100（如）。 求累加和 设计步骤如下： 窗体界面的设计参见前面章节，这里仅给出命令按钮的Click事件代码： Private Sub Command1_Click() Dim s As Integer, n As Integer s = 0: n = 1 Do While n = 100 s = s + n n = n + 1 Loop Label2.Caption = 1+2+3+…+100 = s End Sub 还可以改为直到型： Private Sub Command1_Click() Dim s As Integer, n As Integer s = 0: n = 1 Do Until n 100 s = s + n n = n + 1 Loop Label2.Caption = 1+2+3+…+100 = s End Sub 后测型Do…Loop循环 其语法为 Do [〈语句列1〉] [Exit Do] [〈语句列2〉] Loop [{While | Until} 〈条件〉] 输入有效数字的位数，利用下述公式计算圆周率π的近似值： F T F 条件表达式？ 语句块1 开始(start) …… …… 结束(end) 条件表达式的初值 Exit Do？ 语句块2 改变条件表达式 T 设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。 (2) 编写程序代码。 根据流程图，可以写出命令按钮Command1的Click事件代码为 Private Sub Command1_Click()