2.4.4几种循环语句的比较 (2).ppt

1、怎样在VB窗口依次输出10以内的偶数？,Private Sub Command1_Click() Print 2 Print 4 Print 6 Print 8 Print 10 End Sub,提问1：依次输出100以内的偶数。,问题：,要写50个Print语句!,提问2：依次输出1000以内的偶数。,要写500个Print语句!,5个Print语句,一、For循环（也称 “For-Next循环”),1.For循环语句的基本格式,For 循环变量=初值 To 终值 Step 步长 语句组 Next 循环变量,2.4 循环结构,For i=2 to 10 step 2 Print i Next

2、 i,2.For循环语句的执行过程,For 循环变量=初值 To 终值 Step 步长 语句组 Next 循环变量,重复执行的内容,For i=2 to 10 step 2 Print i Next i,输出10以内偶数的执行过程,重复执行的内容,Private Sub Command1_Click() For i=2 to 10 step 2 Print i Next i End Sub,100以内的偶数怎么修改程序？,100,100以内的奇数怎么修改程序？,1,输出10以内的偶数,3.注意事项：P5152,For 循环变量=初值 To 终值 Step 步长 语句组 Next 循环变量,控制

3、循环的次数,(1)循环变量：为数值型变量,(2)初值、终值、步长均为数值表达式,(3)当初值小于终值时，步长应为正数； (为递增循环) 当初值大于终值时，步长应为负数； (为递减循环) 如果省略step，则默认步长为 1。 (步长为 1 时，可省略不写) 步长不能为0（死循环）,(4)“语句组”可以是一个或多个语句，又称作“循环体”；, For I = 1 To 10,I 代表 1、2、3、9、10,For I = 3 To 100 Step 3,I 代表 3、6、9、96、99,并且指出变量I代表哪些值？,For I = 10 To 1 Step -1,I 代表 10、9、8、2、1,识别初

4、值、终值、步长值，,例1、程序如下： Private Sub Command1_Click() For i=100 To 1 Step 2 S=S+i Next i Print S End Sub,以下说法正确的是（ ） A. 语句执行了50次 B. 循环是无限循环 C. 循环体语句一次也不执行 D. 循环体语句执行一次,C,当初值大于终值时，步长应为负数,例2、以下程序中的循环体执行的次数是（ ） Private Sub Command1_Click() For i=1 To 100 Step 2 S=S+i Next i Print S End Sub,A、48 B、49 C、50 D、5

5、1,C,A=11,10次,A代表 1、2、3、4、5、6、7、8、9、10,P52实践:(1)分析程序功能。,Privare Sub Command1_Clink() For A=1 To 100 S=S+A Next A Print “S= “; S End Sub,A=101,100次,Privare Sub Command1_Clink() S=0 For A=1 To 100 S=S+A Next A Print “S= “; S End Sub,即求 1+2+3+4+5+99+100,循环结束时变量A的值？,循环次数？,程序的运行结果？,变量A代表哪些值？,A代表 1、2、3、99、

6、100,Privare Sub Command1_Clink() For A=100 To 1 Step -1 S=S+A Next A Print “S= “; S End Sub,A=0,100次,Privare Sub Command1_Clink() S=0 For A=100 To 1 Step -1 S=S+A Next A Print “S= “; S End Sub,即求 100+99+98+97+3+2+1,循环结束时变量A的值？,循环次数？,程序的运行结果？,变量A代表哪些值？,A代表 100、99、98、3、2、1,Privare Sub Command1_Clink() For A=1 To 10 A=A+1 Print A Next A End Sub,循环结束时变量A的值？,循环次数？,程序的运行结果？,A=11,5 次,尝试独立编程,利用For-Next循环语句编写以下两个程序：,求1+3+5+7+97+99,求10!=1*2*3*4*5*6*7*8*9*10,Privare Sub Command1_Clink() S=0 For i=1 To 100 step 2 S=S+i Next i Print S =;S End Sub,Privare Sub Command1_Clink() S=1 For i=1 To 10 S=S*i