苏省高中信息技术算法与程序设计VB（选修）

B、①输人的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为False就显示n中值 C、①输人的数存人n变量②如果n/2=Int(n/2)成立，就显示n中值 D、①输人的数存人n变量②如果n/2=Int(n/2)不成立，就显示n中值

2、下面是判断变量x是不是能被5整除的偶数的程序，横线上的逻辑表达式应为( AB ) Private Sub commandl_Click() Dim x As Integer x=Val(Text1. Text) If ____ = 0 Then

Labell.Caption=这个数是能被5整除的偶数 Else

Labell.Caption=这个数不是能被5整除的偶数 End If 选项：

A、(x Mod 5) = 0 And (x Mod 2 ) = 0 B、x Mod 10 = 0 C、x Mod 5 = 0 D、x Mod 2 = 0

3、如要完成:从键盘输入一个正整数，判断是否是偶数，如是就在屏幕上显示。比较好 的算法是( AC )。 选项:

A、①输入的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为True就显示n中值 B、①输入的数存人n变量②f=(n/2=Int(n/2))③如果f中的值为False就显示n中值 C、①输入的数存人n变量②如果n/2=Int(n/2)成立，就显示n中值 D、①输入的数存人n变量②如果n/2=Int(n/2)不成立，就显示n中值 4、下列程序段运行后,m的值为( A ) A=2: b=1: c=5

If A < b Then m = A Else m = b If c < m Then m = c 选项： A、1 B、2 C、5

D、提示错误，无答案

程序设计的循环结构

一、For-Next循环

For循环变量一般形式是：

For循环变量=初值To终值Step循环变量增量 循环体 Nxt循环变量

例题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 \End Sub

例题2：Step循环变量增量

Private Sub Form_Click() For j = 3 To 15 Step 2 Print j Next j End Sub

循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体，增量可正可负，如果没

第 9 页 共 18 页

有设置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

Private Sub Command2_Click() End End Sub

当VB执行Do While-Loop循环时，先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循环。 格式二： Do

循环体

Loop Until条件

第 10 页 共 18 页

这种循环的执行过程如图所示。进入循环体后，先执行一次循环体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 x=(x+2)*(x+3) Loop

执行后，x的值为:( C ). A、168 B、50 C、72 D、0

3、阅读下面程序，当单击窗体之后，窗体上输出的是( A ) 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 i=5

4、要求计算机打印出100至200之问所有偶数的平方根值。正确的算法是( C )。 选项:

第 11 页 共 18 页

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、下列程序段中，循环体执行的次数是( B ) y = 2

Do While y <= 8 y = y+y Loop 选项:

A、2 B、3 C、4 D、5

6、阅读下面程序，当单击窗体之后，m的值是( C ). 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 \的执行次数是：( B )。 A、1 B、2 C、3 D、4

8、下列程序段中，循环体执行的次数是( B ) 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

Print \Next i

则语句Print “VB”的执行次数是:( D ) A、出错 B、2 C、1 D、0

10、下列程序段中，循环体执行的次数是（ C ） 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中显示的内容是（ A ） 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 页 共 18 页