2第4章 VB控制结构_For-While-Do .pptVIP

大家有疑问的，可以询问和交流 可以互相讨论下，但要小声点 当循环终值是一个变量时，在第一次运行时取走该变量中的值后，该变量中的值即便有修改，但不再影响循环节奏。 M=5 For I=1 To M M=M+1 print I，M Next I 即: For I=1 To 5 在循环体内，循环变量可多次引用；但最好不要对其赋值，否则影响原来的循环控制规律。 For I=1 To 5 I=I+2 Print I Next I For I=1 To 5 I=I-1 Print I Next I 输出I=？ 输出I=？ 【例4-3】编程求自然数10的阶乘。 Private sub Form_Click( ) Dim I% , S%, T% T为每一项 S=1 :T=1 For … Next … Print “S=”;S End Sub For I=1 To 10 Step 1 S=S*T T=T+1 Next I S = S * I 此时，T=I??? 分析: 每一项和每次相乘的积都是变化量 因此，需要两个变量 用T表示每一项的值:T=T+1 用S表示累加之和:S=S*T 循环终止条件: 循环次数100 初始化: S=1 【例4-3】编程求自然数n的阶乘。 Private sub Form_Click( ) Dim I% , S%, n% S=1 For I=1 To 10 Step 1 S=S* I Next I Print “S=”;S End Sub n =InputBox(“n=”) n 思考题 1. s=1 + 2 + 3 + 4+ … + n 2. s=12×22 × 32 × 42 × … × n2 3. s=12 × 32 × 52× … × n2 4. s=1+3+5+7+…+(2n-1) 5. s=1-3+5-7+…+(-1)n+1 (2n-1) 6. s= 设s=1×2×3×…×n ,求s不大于6000时最大的n和s. 思 考： 思考: 这是连乘器？加法器？计数器？ 循环次数能否确定？ 循环终止条件是什么？ For…Next控制结构能否解决？ 格式： While 条件 语句块 Wend 功能：当循环条件为真时，执行循环体，否则退出循环。 2. While-Wend 循环——当循环 (一般用于循环次数未知) 循环体 讨论While-Wend 进入循环体之前，应正确设置循环条件。如果条件一开始就不成立(False)，则一次循环体也不执行。 循环体内必须有修改循环条件的语句，确保循环体能正常执行和正常结束。 x=3 While x10 Print x; Wend x=3 While x=0 Print x; Wend X=X-1 4. Do-Loop 循环——Do 循环 功能: 当条件为True时，(While条件)执行循环体; 当条件为False时，(Until条件)执行循环体。 ①先判断条件，后执行循环体 Do {While|Until 条件} [ 语句块 ] [ Exit Do ] [ 语句块 ] Loop ②先执行循环体，后判断条件 Do [ 语句块 ] [ Exit Do ] [ 语句块 ] Loop { While|Until 条件} 两种格式： 等价于 While-Wend (一般用于循环次数未知) 直到型循环 代码2: Private Sub Form_Click() Dim i%, s s = 1 : i=1 Do While s = 6000 s = s * i i = i + 1 Loop Print i - 2 , s /(i-1) End Sub 代码4: Private Sub Form_Click() Dim i%, s s = 1: i=1 Do s = s * i i = i + 1 Loop Until s 6000 Print i - 2 , s /(i-1) End Sub 问题解决: 代码1: Private Sub Form