循环结构vb语句.pptVIP

程序循环结构(for…next 语句循环) For循环变量一般形式是： For 循环变量 = 初值 To 终值 Step 步长 循环体 [exit for] Next循环变量 for循环练习一 1、编程计算:1+(1+2)+(1+2+3)+……+(1+2+3+……+100) 3、编程计算10*12+11*22+12*32+……+209*2002 while…wend 语句 While…wend也属于当型循环.但它与for…next不同的是:while…wend 不是通过计算来决定是否循环,而是直接通过判断语句中的条件表达式是否为true来决定是否循环. 格式: while 条件 循环体 wend 执行过程: 说明:条件为关系表达式或逻辑表达式. do…loop 语句 do ...loop 通过和while ,until语句的配合使用,可以方便地实现“当型(while)循环”和“直到型(until)循环”. 格式1: Do while 条件 格式2: Do until 条件 循环体 循环体 Loop Loop 格式3: Do 格式4: Do 循环体 循环体 Loop while 条件 Loop until 条件 程序设计的循环结构 梅山高中信息组 主要内容: (1)次数已知的循环语句for …next (2)当型循环语句while…wend (3) 当型/直到型循环语句do….loop 例题1：求s＝1+2+3+4.....+100 Private Sub Form_Click() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 100 sum = sum + i 循环体 Next i Print sum=; sum End Sub 例题2： Private Sub Form_Click() For j = 3 To 15 Step 2 Print j Next j End Sub 以上可以看出，For-Next循环变量是一种当型循环。 说明For语句与Next语句必须成对出现，这种循环 语句属于当型循环,它可以看作是循环次数已 知的一种循环.对循环次数一定的问题，适合 用for….next语句来实现 s=0 p=0 for i=1 to 100 p=p+i s=s+p next i print s 2、编程计算1*100+2*99+3*98+……+100*1 s=0 P=0 for i=1 to 100 P=i*(101-i) s=s+p next i s=0 P=0 for i=1 to 200 P= (9+i)*（i*10+2） s=s+p next i 例题：求最大公约数 Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim r As Integer a = Val(Text1.Text) b = Val(Text2.Text) r = a Mod b While r 0 a = b b = r r = a Mod b wend Text3.Text = Str(b) End Sub Private Sub Command2_Click() End End Sub 例题：如果我国人口每年以平均1.5%的速度增长，问多少年 后我国人口达到或超过15亿？设现在人口为12.3亿。 Private Sub Form_Click() Dim p As Single Dim r As Single Dim n As Integer p = 1230000000# r = 0.015 n = 0 Do p = p * (1 + r) n = n + 1 L