VB课件VB5章节幻灯片.pptVIP

* 5.2.2 For-Next循环 Do-Loop循环：知道循环继续或结束的条件 For-Next循环：知道循环执行次数 For-Next循环一般形式如下： For 计数变量=初值 To 终值 [Step 步长] 循环体 Next 计数变量 * 5.2.2 For-Next循环 For 计数变量=初值 To 终值 [Step 步长] 循环体 Next 计数变量 [功能]：由计数变量控制， 有限次地执行循环体 计数变量=初值 计数变量终值 是 循环体 计数变量=计数变量+步长值 否 * 5.2.2 For-Next循环说明 For - Next是关键字，成对出现，缺一不可； 循环体中可嵌套分支结构和循环结构； 计数变量应为整型或单精度型，初值、终值和步长值为相应类型的表达式； 步长值可以为正，也可为负，省略时默认步长值为1； 循环次数为：Int((终值-初值）/步长值）+ 1。 若循环体中改变了初值、终止或步长变量的值，不会影响循环的执行次数，但若改变了计数变量的值，则有可能改变循环次数 循环体中也可出现Exit For语句，用于无条件退出循环 * 5.2.2 举例（一） Private Sub Form_Click() Dim i as integer For i = 1 To 10 Step 2 Print i ; Next i Print i=; i End Sub 例：打印出10以内的所有奇数 * 5.2.2 举例（二） 例：求S=1+2+3+…+100 S=0 For i=1 To 100 S=S+i Next i S=0 For i=100 To 1 Step -1 S=S+i Next i S=0：n=0 For i=1 To 100 n=n+1 S=S+n Next i * 5.2.2 举例（三） 例：某试卷有26个问题，答对一题得8分，答错一题扣5分，某学生回答了全部26个问题，总分为0分，问他答对几道题，答错几道题 [分析]:使用穷举法，设该生共答对i道题，答错（26-i）道题，如果 i*8-(26-i)*5=0 那么i就是答案。i的变化范围是1-26。一旦找到答案，可以立即结束循环。 Private Sub Form_Click() Dim i As Integer For i = 1 To 26 If i * 8 - (26 - i) * 5 = 0 Then Exit For Next i Print 答对; i; 道, 答错; 26 - i; 道 End Sub * 5.2.2 举例（四） 例：判断一个数是否为素数. [分析]：素数为除了1和它本身，不能被其它数整除的数。该算法考虑使用穷举法 For i = 2 To x - 1 If x Mod i = 0 Then Exit For Next i If i= x Then Print x; 是素数！ Else Print x; 不是素数！ End If 实际上不用整除到X-1，整除到Sqr（X），即可判断 For i=2 To x-1 If x Mod i=0 Then Print x;“不是素数” Else Print x=;“是素数” End If Next i * 5.2.2 举例（五） 书P71，例5－5：设计一个从字母、数字组成的字符串中找出所有大写字母并逆序输出的程序。 * Private Sub Command1_Click() Dim s As String, d As String, t As String Dim i As Integer Text1.SetFocus s = Text1.Text For i = 1 To Len(s) If Mid(s, i, 1) = A And Mid(s, i, 1) = Z Then t = t Mid(s, i, 1) End If Next i For i = Len(t) To 1 Step -1 d = d Mid(t, i, 1) Next i Text2.Text = d End Sub *