[理学]vb 循环结构程序设计.pptVIP

第5章 循环结构程序设计 第5章 循环结构程序设计 循环是指在程序设计中，从某处开始有规律地反复执行某一程序块的现象，重复执行的程序块称为“循环体”。使用循环可以避免重复不必要的操作，简化程序，节约内存，从而提高效率。 5.1 循环结构程序设计的概念 VB提供的设计循环结构的语句有：Do...Loop、While...Wend、For...Next、For Each...Next等。其中最常用的是Do...Loop和For...Next。 5.2 Do…Loop语句 Do…Loop语句有两种语法形式，分别是前测型循环结构与后测型循环结构。 5.2.1 前测型Do…Loop循环 前测型Do…Loop循环结构，首先判断条件，根据条件决定是否执行循环，执行循环的最少次数为0。其流程图如图5-1所示。 图5-1 前测型循环结构流程图 其语法为 Do [{ While | Until } 〈条件〉] [〈语句序列1〉] [Exit Do] [〈语句序列2〉] Loop Do While 条件 语句组 [exit do ] 语句组 Loop Do until条件 语句组 [exit do ] 语句组 Loop 【例5-1】求累加和1 + 2 + 3 +…+ 100。 分析：采用累加的方法，用变量intSum来存放累加的和（开始为0），用变量n来存放“加数”（加到intSum中的数）。这里n又称为计数器，从1开始到100为止。 命令按钮的Click事件代码： Private Sub Command1_Click() Dim intSum As Integer, n As Integer intSum = 0: n = 1 Do While n = 100 intSum = intSum + n n = n + 1 Loop 图5-3 求累加和 Label2.Caption = 1+2+3+…+100 = intSum End Sub 还可以改为直到型： Private Sub Command1_Click() Dim intSum As Integer, n As Integer intSum = 0: n = 1 Do Until n 100 intSum = intSum + n n = n + 1 Loop Label2.Caption = 1+2+3+…+100 = intSum End Sub 【例5-2】输入一个正整数，利用“当型”循环判断是否素数。 分析：所谓“素数”是指除了1和该数本身，不能被任何整数整除的数。判断一个自然数n（n≥3）是否素数，只要依次用2～作除数去除n，若n不能被其中任何一个数整除，则n即为素数。 图5-5 判断素数 命令按钮Command1的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