Visual Basic 程序设计教程.ppt

Visual Basic 程序设计教程 机械工业出版社同名教材配套电子教案 * 2003 年 6月 第5章 循环结构程序设计 5.1 循环结构程序设计的概念 5.2 Do…Loop语句 5.2.1 前测型Do…Loop循环 5.2.2 后测型Do…Loop循环 5.3 For...Next语句 5.4 列表框与组合框 5.4.1 列表框 5.4.2 组合框 5.4 算法举例 习题五 5.2.1 前测型Do…Loop循环 其语法为 Do [{ While | Until }〈条件〉] [〈语句列1〉] [Exit Do] [〈语句列2〉] Loop 【例5-1】求累加和1 + 2 + 3 +…+ 100（如图5-2）。 设计步骤如下： 窗体界面的设计参见前面章节，这里仅给出命令按钮的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 【例5-2】输入一个正整数，利用“当型”循环判断是否素数。 设计步骤如下： 窗体界面的设计参见前面章节，这里给出命令按钮的Click事件代码： Private Sub Command1_Click() Dim n As Long Select Case Val(Text1.Text) Case Is 3 MsgBox 请输入一个大于2的整数!, vbInformation + vbOKOnly, 注意 Case Is 2147483647 MsgBox 此数太大!, vbInformation + vbOKOnly, 注意 Case Else n = Val(Text1.Text) 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 End Sub 另外，为了使用文本框得到焦点后，文本立即被选中，编写Text1的GotFocus事件代码如下： Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub 5.2.2 后测型Do…Loop循环 其语法为 Do [〈语句列1〉] [Exit Do] [〈语句列2〉] Loop [{While | Until} 〈条件〉] 【例5-3】输入有效数字的位数，利用下述公式计算圆周率π的近似值： 设计步骤如下： (1) 建立应用程序用户界面与设置对象属性。 (2) 编写程序代码。 根据流程图，可以写出命令按钮Command1的Click事件代码为 Private Sub Command1_Click() Dim m As Integer m = Val(Text1.Text) p = 0#: s = 2#: e = 0.1 ^ m Do t = s : p = Sqr(2 + p) : s = s * 2 / p Loop Until Abs(t – s) 0.1 ^ m f = String(m – 1, #) Text2.Text = Format(s, 0.