1、Visual Basic 程序设计教程程序设计教程机械工业出版社同名教材配套电子教案2003 年 6月第 5章 循环结构程序设计5.1 循环结构程序设计的概念循环结构程序设计的概念5.2 Do Loop语句语句5.2.1 前测型前测型 Do Loop循环循环5.2.2 后测型后测型 DoLoop 循环循环 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【例
2、 5-1】求累加和 1 + 2 + 3 + 100 （如图 5-2）。设计步骤如下：窗体界面的设计参见前面章节，这里仅给出命令按钮的 Click事件代码：Private Sub Command1_Click()Dim s As Integer, n As Integers = 0: n = 1Do While n 100s = s + nn = n + 1LoopLabel2.Caption = “1+2+3+100 = “ & sEnd Sub【例 5-2】输入一个正整数，利用 “当型 ”循环判断是否素数。设计步骤如下：窗体界面的设计参见前面章节，这里给出命令按钮的 Click事件代码：Pr
3、ivate Sub Command1_Click()Dim n As LongSelect Case Val(Text1.Text)Case Is 2147483647MsgBox “此数太大 !“, vbInformation + vbOKOnly, “注意 “Case Elsen = Val(Text1.Text)s = 0: i = 2Do While i = Sqr(n) And s = 0If n Mod i = 0 Thens = 1Elsei = i + 1End IfLoopIf s = 0 Thena = “是一个素数 “Elsea = “不是素数 “End IfLabel1
4、.Caption = Str(n) & aEnd SelectText1.SetFocusEnd Sub另外，为了使用文本框得到焦点后，文本立即被选中，编写 Text1的 GotFocus事件代码如下：Private Sub Text1_GotFocus()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub5.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 Integerm = Val(Text1.Text)p = 0#: s = 2#: e = 0.1 mDot = s : p = Sqr(2 + p) : s = s * 2 / pLoop Until Abs(t s) 0.1 mf = String(m 1, “#“)Text2.Text = Format(s, “0.“ & f)Text1.SetFocusEnd Sub
