循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体，增量可正可负，如果没有设置Step，则增量的缺省值为1 1、 循环变量取初值；
2、 循环变量与终值比较，没有超过终值转3，否则循结束，接着执行循环语句的后继语句； 3、 执行一次循环体
4、 循环变量增加一个增量 5、 重复步骤2~4。
以上可以看出，For-Next循环变量是一种当型循环。说明
（a） For语句与Next语句必须成对出现，而且它们当中的“循环变量”必须是同一个变
量，如上例中均为I。
（b） 当循环变量为正时，循环变量超过终值，是指循环变量的值大于终值勤；若为负，
则是指循环变量的值小于终值。
入口 P
A
出口
二、Do－Loop循环
For-Next循环的次数是确定的，但是有的问题只知道循环结束的条件，重复执行的次数事先并不知道，这是需要Do-Loop循环 格式一： Do While 条件 循环体 Loop 例题：求最大公约数
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 Do While r <> 0 a = b b = r
r = a Mod b Loop
Text3.Text = Str(b) End Sub
11----20
Private Sub Command2_Click() End End Sub
当VB执行Do While-Loop循环时，先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循环。 格式二： Do
循环体
Loop Until条件
这种循环的执行过程如图所示。进入循环体后，先执行一次循环体A，然后再检查条件P是否成立。如果不成立，就重复执行循环体A，直到条件P成立退出循环体。
A P N
例题：如果我国人口每年以平均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
Loop Until p >= 1500000000# Print n; \年后\人口=\End Sub
1、下列流程图表示的是程序的( B )基本结构的算法。
A 其它三项都不是 B 循环结构 C 选择结构 D 顺序结构 2、在VB中，以下程序段: x=0
Do While x<50
12----20
x=(x+2)*(x+3) Loop
执行后，x的值为:( ).
A、168 B、50 C、72 D、0
3、阅读下面程序，当单击窗体之后，窗体上输出的是( ) Private Sub Form_Click()
Dim i As Integer:Dim s As Integer s = 0
For i = 1 To 5 s = s + i Next i Print s,i End Sub
A、15 6 B、 s=15 i=6 C、6 5 D、s=6 4、要求计算机打印出100至200之问所有偶数的平方根值。正确的算法是( A、①i=100 ②Do While i<200:Print i，Sqr(i):Loop
B、①i=100 ②Do While i<200:Print i，Sqr(i):i=i+1:Loop C、For i=100 To 200 Step 2:Print i，Sqr(i):Next i D、For i=100 To 200:Print i，Sqr(i):Next i
5、下列程序段中，循环体执行的次数是( ) y = 2
Do While y <= 8 y = y+y Loop
A、2 B、3 C、4 D、5
6、阅读下面程序，当单击窗体之后，m的值是( ). Private Sub Form_Click()
Dim m As Integer:Dim i As Integer m = 0
For i = 1 To 3 m = m + 2 Next i Print m End Sub
A、0 B、4 C、6 D、8 7、在VB中，假定有以下程序段: For i=1 To 3 Step 2 Print \Next i
则语句Print \的执行次数是：( )。 A、1 B、2 C、3 D、4
8、下列程序段中，循环体执行的次数是( ) x=0
For y=1 To 10 step -1 x=x+1 Next y
A、1 B、0 C、10 D、4 9、在VB中，假定有以下程序段: For i=3 To 1
13----20
i=5 )。 Print \Next i
则语句Print “VB”的执行次数是:( ) A、出错 B、2 C、1 D、0
10、下列程序段中，循环体执行的次数是（ ） x=0
For y = 1 To 10 step -1 x = x+1 Next y
A、1 B、10 C、0 D、4
11、单击窗体后，文本框Text1、Text2中显示的内容是（ ） Private Sub Form_Click( ) Dim x as Integer, n as Integer x = 1 n = 0
Do While x < 20 n = n + 1 x = x * 3 Loop
Text1.text = Str(x) Text2.text = Str(n) End Sub
A、27 3 B、3 27 C、20 3 D、3 21
12、单击窗体后，文本框Text1、Text2中显示的内容是（ Private Sub Form_Click( ) Dim x as Integer, y as Integer x = 1:y = 0 Do While x < 3 y = y + x x = x * 3 Loop
Text1.text = Str(x) Text2.text = Str(n) End Sub
A、27 3 B、3 27 C、20 3 D、3 21
13、读下面程序，单击窗体后，在文本框显示的内容是（ Private Sub Form_Click( ) Dim a( 8 ),b( 8 ) as Integer Dim i,j As Integer For j = 1 To 4 a( j ) = 2 * j b( j ) = a( j ) * 3 Next j
Text1.Text = b( j / 2 ) End Sub
A、10 B、12 C、14 D、18 6．面向对象程序设计思想 相关题解 单选题
1、在visual Basic中显示和编辑程序代码时，采用( ).
14----20
） ）A 工程资源管理器窗口 B 窗体设计器窗口 C 代码编辑窗口 D 属性窗口 2、在VB中，要设置文本框的缺省文字，应使用属性:（ ） A、Text B、Name C、Caption D、Font
3、在VB中，要设置窗口的标题文本，应使用属性:( ) A 、FontB 、CaptionC 、NameD 、Text
4、用visual Basic编程，我们把工具箱中的工具称为( ) A、控件B、工具C、窗体D、事件
5、在VB中，要设置某个对象属性时，应进入:( )
A 任意模式 B 中断模式 C 运行模式 D 设计模式 6、能够改变复选框中背景颜色的属性是( )。 A、Value B、FontColor C、BackColor D、Font 7、对于窗体，Click(单击)是它的一个( )
A 重要事件B 重要属性C 重要方法D 重要对象
8、Visual Basic中，设置控件的位置，可改变下列( )属性。
A、Height与Top B、Left与Top C、Height与Width D、Left与Width 9、在VB中，设置控件的大小可改变（）
A 、Height与Width B、 Height与Top C、 Left与Top D、 Left与Width （三）算法与问题解决
1、解析法 2、穷举法 3、递归法 综合分析
1、有5人，问第5人年龄，说比前面第4人小3岁，问第4. 3. 2人，都说比前面人小3岁，问第1人，说他的年龄为38岁。问第5人的年龄多大。用递归法解决此问题的正确步骤是( B )。 A、①定义age (n)函数 ②函数中当n>1时返回函数值为age (n-1)当n=1返回函数值为38 B、①定义age (n)函数 ②函数中当n>1时返回函数值为age (n-1)-3当n=1返回函数值为38 C、①定义age (n)函数 ②函数中不断地调用age (n-1)-3
D、①定义age (n)函数 ②函数中不断地调用age (n)函数自己 4、排序与查找数据 四、应用程序设计
1、程序设计的一般步骤 2、 简单程序设计 综合分析
1、a,b,c三变量存放不同的数，值a 最大，b 第二，比较好的算法是（ ） A、①定义一个max(x,y)函数（值为 x,y 中的大值）② a = max(max(a,b),c) B、①如a < b就a = b ②如 a < c 就 a = c ?如 b
D、①如a < b就两变量交换 ②如 a < c 就两变量交换 ?如 b A、①定义求阶乘的函数用j c(n) ②主程序中用一个循环9次调用j c(n)函数进行累加 B、用一个程序完成:每一项阶乘用一个For/Next循环完成，整个程序包括9个循环 C、用解析法:s=1*2+1*2*3+1*2*3*4+?+1*2*3*4*5*6*7*8*9*10 D、不必定义函数，只要用一个单重循环就能完成 3、要求打印 100 至 200之间所有偶数的平方根（ C ） A、① i = 100 ② Do While i < 200:Print i,Sqr(i):loop B、① i = 100 ② Do While i < 200:Print i,Sqr(i):i = i + 1:loop C、① For i = 100 to 200 step 2:Print i,Sqr(i) : Next i D、① For i = 100 to 200:Print i,Sqr(i):Next i 15----20 百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库2009年信息技术选修（算法程序）复习(3)在线全文阅读。
相关推荐：