vb循环结构选择题

更新时间：2024-04-12 07:34:01 阅读量：综合文库文档下载

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。

一、选择题

1、无条件转移GoTo语句后面是（A） A、标号或行号 B、输出语句 C、输入语句 D、子过程

2、无条件转移GoTo语句后面的行号或标号以字母开头，后跟（A） A、冒号 B、分号 C、逗号 D、空格

3、无条件转移GoTo语句后面的行号或标号在同一过程中（A） A、必须唯一 B、可以重复 C、以数字开头 D、以汉字开头

4、while循环结构中的条件表达式取值为（A） A、True B、False

C、True或False D、0

5、while循环结构中的条件表达式取值为（A）时执行语句组 A、True B、False

C、True或False D、0

6、while循环结构中与（A）匹配使用，不能单独出现 A、Wend B、end C、loop D、next 7、Do…、、loop循环结构中的循环体执行的最少次数为（A） A、0 B、1 C、2 D、3

8、前测型Do…、、loop循环结构中的循环体执行的最少次数为（A） A、0 B、1 C、2 D、3

9、后测型Do…、、loop循环结构中的循环体执行的最少次数为（B） A、0 B、1

C、2 D、3

10、Do…loop循环结构中的Exit Do语句的功能是（B） A、退出整个程序 B、退出当层循环 C、退出最外层循环 D、退出所在子程序

11、Do…loop中使用while关键字时，条件为（B）执行循环体 A、False B、True C、0

D、假或真

12、Do…loop中使用until关键字时，条件为（A）执行循环体 A、False B、True C、0

D、假或真

13、Do…loop中使用while关键字时，条件为（A）终止循环 A、False B、True C、0

D、假或真

14、Do…loop中使用until关键字时，条件为（B）终止循环 A、False B、True C、0

D、假或真

15、For…Next循环结构中（C）用来控制循环变量 A、for B、step C、next D、to

16、For…Next循环结构中step用来控制（D） A、循环变量 B、循环变量初值 C、循环变量终值 D、循环变量增量

17、For…Next循环结构中循环变量初值大于终值时,步长为（A） A、负数 B、非负数 C、正整数 D、正数

18、For…Next循环结构中循环变量初值小于终值时,步长为（A） A、负数

B、负整数 C、正整数 D、正数

19、For…Next循环结构中next后的循环变量（A） A、可以省略 B、不可以省略

C、与for后的变量名可以不同 D、与for后的变量不是同一变量

20、For…Next中循环变量初值与终值间使用的关键字是（A） A、To B、In C、goto D、private

21、For…Next中循环变量初值与终值间使用的关键字是（A） A、To B、In C、goto D、private

22、执行下面的程序段后，s的值为（C） Private Sub Form_Click() Static s As Integer s = 5

For i = 1.4 To 2.1 Step 0.6 s = s + 1 Next i Print s End Sub A、5 B、6 C、7 D、1

23、下面程序的作用是利用随机函数产生10个100~200之间（包含100、200）的随机数，打印其中为5的倍数的数将程序补充完整（Ａ） Private Sub Command1_Click() For m = 1 To 10

x = Int(Rnd * 101+100) If（）Then Print x; End If Next m End Sub

A、x mod 5=0 B、x mod 5==0 C、x/5=0

D、x\\5=0

24、设有如下程序： Option Base 1

Private Sub Form_Click() Dim a(10), P(3) As Integer k = 5

For i = 1 To 10 a(i) = i Next i

For i = 1 To 3 P(i) = a(i * i) Next i

For i = 1 To 3 k = k + P(i) * 2 Next i Print k End Sub

程序运行后，单击窗体，则在窗体上显示的是（A） A、33 B、35 C、37 D、38

25、在窗体上画一个命令按纽Command1，然后编写如下事件过程： Private Sub Command1__Click() X=0

N=val(inputbox(“n=?”)) For i=1 to n

For j=1 to i X=x+1 Next j Next i Print x End sub

程序运行后、单击命令按钮,输入3,在窗体上显示的内容是(D) A、9 B、44 C、5 D、6

26、以下能够正确计算n！的程序是（C） A、private sub command1__click() N=5 : x=1 Do

X=x*1 I=i+1

Loop while i

B、private sub command1__click() N=5 : x=1 : i=1 Do

X=x*i I=i+1

Loop while i

C、private sub command1__click() N=5 : x=1 : i=1 Do

X=x*i I=i+1

Loop while i<=n Print x End sub

D、private sub command1__click() N=5 : x=1 : i=1 Do

X=x*i I=i+1

Loop while i > n Print x End sub

27、在窗体上画一个命令按纽Command1，标签Label1然后编写如下事件过程： Private sub command1_click() For i=1 to 15 X=2*i-1

If x mod 3=0 then s=s+1 Next i

Label1、caption =s End sub

程序运行后,单击命令按钮,标签中显示的内容是( B ) A、1 B、5 C、27 D、45

28、在窗体上画一个命令按纽Command1，然后编写如下事件过程： Private sub command1_click() For i=1 to 4 For j =0 to i

Print chr$(65+i) Next i Print End sub

程序运行后,单击命令按钮,窗体中显示的内容是( A) A、BB

CCC DDDD EEEEE B、A BB CCC DDDD C、B CC DDD EEEE D、AA BBB CCCC DDDDD

28、在窗体上画两个名称分别为text1，text2的文本框和一个名称为command1的命令按钮，然后编写如下事件过程： Private sub command1_click()

Dim x as integer，n as integer X=1 ： n=0 Do while x < 20

X=x*3 N=n+1 Loop

Text1、text=str(x) Text2、text=str(n) End sub

程序运行后,单击命令按钮,在两个文本框中显示的值分别是(B) A、15和1 B、27和3 C、195和3 D、600和4

29、在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a(5),b(5) For j =1 to 4 A(j)=3*j B(j)=a(j)*3 Next j

Text1、text=b(j\\2) End Sub

程序运行后，单击命令按钮，在文本框中显示（ B ） A、25 B、18

C、36 D、35

30、下面程序运行时，内层循环的循环总次数是（A） For m = 1 To 3 For n = 0 To m - 1 Next n Next m A、6 B、3 C、0 D、9

31、定义语句Dim A (-3 to 3) as Integer，定义数组的元素个数是（D） A、6 B、3 C、0 D、7

32、执行下面的程序段后，X的值为（C） X=5

For I=1 to 10 Step 2 X=X+I\\5 Next I A、7 B、10 C、8 D、5

33、如果整型变量a、b的值分别为3和1，则下列语句中循环体的执行次数是（ D ）

For I=a to b Print I Next I

A、0 B、1 C、2 D、3 34、下列关于do while ?loop 和do?loop until循环执行循环体次数的描述正确的是（ D ） A、 do while ?loop循环和do?loop until循环至少都执行一次 B、 do while ?loop循环和do?loop until循环可能都不执行

C、 do while ?loop循环至少执行一次，do?loop until循环可能不执行 D、 do while ?loop循环可能不执行，do?loop until循环至少执行一次

35、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub Command1_Click() For i = 1 To 4 a = 1

For j = 1 To 3 a = 2

For k = 1 To 2 a = a + 6 Next k Next j Next i Print a End Sub

程序运行后，单击命令按钮，则在窗体上显示的内容是（ A ） A、14 B、15 C、16 D、17

36、设有如下程序：

Private Sub Form_Click() a = 1

For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4 a = a + 2 End Select Next i Print a End Sub

程序运行后，单击窗体，则在窗体上显示的内容是（ B ） A、6 B、5 C、4 D、3

37、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

sub ss (b() as Integer ) For i = 1 To 4 b(i) = 2 * i Next i End Sub

Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5: a(2) = 6 a(3) = 7: a(4) = 8 ss a()

For i = 1 To 4 Print a(i) Next i

End Sub

运行上面的程序，单击命令按钮，则在窗体上显示的内容是（ B ） A、5 6 7 8 B、2 4 6 8 C、1 2 3 4 D、5 7 6 8

38、在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Function fun(x As Integer) Static z

y = y + 1: z = z + 1 fun = x + y + z End Function

Private Sub Command1_Click() Dim x As Integer x = 1

For i = 1 To 2 Print fun(x) Next i End Sub

程序运行后，如果单击命令按钮，窗体中显示的内容是（ B ） A、3 3 B、3 4 C、3 5 D、3 6

39、若I、n均为整型变量，下列程序段的输出结果为（C）

Private Sub Form_Click() n = 0

For i = 1 To 10

If i Mod 2 = 1 Then n = n + 1 Next i Print n End Sub A、0 B、4 C、5 D、3

40、在窗体中添加一个文本框（其中Name属性为Text1）,然后编写如下代码：

Private Sub Form_click () Text1、Text = \Text1、SetFocus For i = 1 To 10 Sum = Sum + i Next i

Text1、Text = Sum

End Sub

上述程序运行后，单击窗体，则运行的结果（ A ） A、在文本框Text1中输出55 B、在文本框Text1中输出0 C、出错

D、在文本框Text1中输出不定值

41、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码： Private Sub Command1_Click() x = 0

Do Until x = -1

a = InputBox(\请输入A的值\a = Val(a)

b = InputBox(\请输入B的值\b = Val(b)

x = InputBox(\请输入X的值\x = Val(x) a = a + b + x Loop Print a End Sub

程序运行后，单击命令按钮，依次在输入对话框中输入

12345-1，则输出结果为（A） A、8 B、9 C、14 D、15

42、设有如下程序：

Option Base 1

Private Sub Form_Click() Dim a(10), P(3) As Integer k = 5

For i = 1 To 10 a(i) = i Next i

For i = 1 To 3 P(i) = a(i * i) Next i

For i = 1 To 3 k = k + P(i) * 2 Next i Print k End Sub

程序运行后，单击窗体，则在窗体上显示的是（ A ） A、33

B、35 C、37 D、38

43、在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码： Function F(a As Integer) b = 0 Static c b = b + 1 c = c + 1 F = a + b + c End Function

Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 2

For i = 1 To 3 b = F(a) Print b Next i End Sub

程序运行后，如果单击命令按钮，则窗体上显示的内容是（ A ） A、4 5 6 B、1 2 3

C、0 1 2 3 D、2 3 4

44、在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：

Private Sub Command1_Click() For a=1 To 4 For b=0 To a

Print Chr(65+a) Next b Print Next a End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是（B） A、A BB CCC DDDD B、BB CCC DDDD EEEEE C、B

CC DDD

EEEE D、B C D E

45、循环是一组重复执行的指令，重复次数由（B）决定

A、int（终值-初值）+1 B、int（（终值-初值）/步长）+1 C、int（（终值-初值）/步长） D、（终值-初值）/步长

46、假定有以下程序段：

For i = 1 To 3

For j = 5 To 1 Step -1 Print i * j Next j, i

则语句Print i * j的执行次数是（ A ） A、15 B、16 C、17 D、18

47、以下程序段的输出结果是（C）

num=0

While num<=2 num=num+1 Print num Wend

A、1 3 5 B、2 3 4 C、1 2 3 D、0 1 2 48、、在窗体中添加一个命令按钮（其Name属性为Command1），然后编写如下代码： Private Sub Command1_Click() Dim n() As Integer Dim a, b As Integer

a = InputBox(\b = InputBox(\ReDim n(a To b)

For k = LBound(n, 1) To UBound(n, 1) n(k) = k Print n(k) Next k End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为（D） A、0 1 B、1 3 C、1 2 D、2 3

49、在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其

Name属性为Command1），然后编写如下事件过程： Private Sub Command1_Click() x = 0

Do While x < 10 x = (x - 2) * (x + 3) n = n + 1 Loop

Text1、Text = Str(n) Text2、Text = Str(x) End Sub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ B ） A、1和0

B、2和24 C、3和50 D、4和68

50、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click() Static x As Integer Cls

For i=1 To 2 y=y+x x=x+2 Next

Print x,y End Sub

程序运行后，连续三次单击Command1按钮后，窗体上显示的是（B） A、4 2 B、12 18 C、12 30 D、4 6

51、设有如下程序段：

x=2

For i=1 To 10 Step 2 x=x+i Next

运行以上程序后，x的值是 (B) A、 26 B、 27

C、 38 D、 57

52、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Option Base 1

Private Sub Command1_Click() Dim a

a= Array(1,2,3,4,5) For i=1 To UBound(a) a(i) = a(i)+i-1 Next

Print a(3) End Sub

程序运行后，单击命令按钮，则在窗体上显示的内容是( B ) A、4 B、5 C、6 D、7

53、阅读程序 Option Base 1

Private Sub Form_Click() Dim arr,Sum Sum = 0

arr = Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10

If arr(i)/3 = arr(i)\\3 Then Sum =Sum+arr(i) End If Next i Print Sum End Sub

程序运行后，单击窗体，输入结果为 (C) A、13 B、14 C、27 D、15

54、执行以下程序段

a$=\

For i=6 To 2 Step -2 X=Mid(a,i,i) Y=Left(a,i) z=Right(a,i) z=UCase(X&Y&z) Next i Print z

输出结果为（B） A、ABA B、BBABBA C、ABBABA D、AABAAB

55、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1

Private Sub Command1_Click() Dim a As Variant a=Array(1,2,3,4,5) Sum=0

For i=1 To 5 Sum = sum+a(i) Next i x=Sum/5

For i =1 To 5

If a(i)>x Then Print a(i); Next i End Sub

程序运行后，单击命令按钮，在窗体上显示的内容是A、1 2 B、1 2 3 C、3 4 5 D、4 5

56、以下程序段的输出结果是（A）

num =0

While num<=5 num = num+1 Wend

Print num A、 6 B、 2 C、 5 D、 1

57、Private Sub Form_Click()

 Dim x As Integer, n As Integer  x = 1  n = 0

 Do While x < 28  x = x * 3  n = n + 1  Loop

 Print x, n End Sub

D）（

程序运行后，单击窗体，输出结果是(A)  A、81 4

B、56 3  C、28 1

D、243 5 58、有如下程序：

 Private Sub Form_Click()

 Dim i As Integer, sum As Integer  sum = 0

 For i = 2 To 10

 If i Mod 2 <> 0 And i Mod 3 = 0 Then  sum = sum + i  End If  Next i  Print sum  End Sub

 程序运行后，单击窗体，输出结果为（A）  A、12

B、30 C、24 D、18 59、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()  Dim array1(10, 10) As Integer  Dim i As Integer, j As Integer  For i = 1 To 3  For j = 2 To 4

 array1(i, j) = i + j  Next j  Next i

 Text1.Text = array1(2, 3) + array1(3, 4) End Sub

程序运行后，单击命令按钮，在文本框中显示的值是（ A ）  A、12

B、3 C、14 D、15 

60、在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click()  Dim a1(4, 4), a2(4, 4)  For i = 1 To 4  For j = 1 To 4

 a1(i, j) = i + j

 a2(i, j) = a1(i, j) + i + j  Next j  Next i

 Print a1(3, 3); a2(3, 3) End Sub

 程序运行后，单击命令按钮，在窗体上输出的是（D）  A、6 6

B、10 5 C、7 21 D、6 12 

61、有如下程序： Option Base 1

Private Sub Form_Click()  Dim arr, Sum  Sum = 0

 arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)  For i = 1 To 10

 If arr(i) / 3 = arr(i) \\ 3 Then  Sum = Sum + arr(i)  End If  Next i  Print Sum End Sub

 程序运行后，单击窗体，输出结果为（C）  A、25

B、26 C、27 D、28 

62、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()  Dim a(5) As String  For i = 1 To 5

 a(i) = Chr(Asc(\ Next i

 For Each b In a  Print b;  Next End Sub

 程序运行后，单击命令按钮，输出结果是（A）  A、ABCDE

B、1 2 3 4 5

 C、abcde

D、出错信息 

63、设有以下函数过程：

Function fun(m As Integer) As Integer  Dim k As Integer, sum As Integer  sum = 0

 For k = m To 1 Step -2  sum = sum + k  Next k  fun = sum End Function

若在程序中用语句 s = fun(10) 调用此函数，则s的值为（A） A、30

B、26 C、27 D、28 64、在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command1_Click( )

 Dim str As String, s As String, c As String  str = UCase(Text1)  s = \ c = \

 While c >= \

 If InStr(str, c) = 0 Then  s = C  End If

 c = Chr$(Asc(c)-1 )  Wend

 If s <> \ Text1 = s  End If End Sub  A、1

B、s

C、s & c D、0

65、在n个运动员中选出任意r个人参加比赛，选法有多种，用组合公式计算等于n！/r！/（n-r）！。窗体中有3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求

出选法的个数，并显示在Text3文本框中，请填空。 Private Sub Command1_Click( )  Dim r As Integer, n As Integer  n = Text1  r = Text2

 Text3 = fun(n) / C / fun(r) End Sub

Function fun(n As Integer) as long  Dim t As Long  t=1

 For k = 1 To n  t = t * k  Next  fun = t

End Function

A、fun（n） B、fun（m） C、fun（n-r） D、fun（r-n）

66、以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），请填空。 

Private Sub Command1_Click( )  Dim k As Integer

 Dim sum As Single, max As Single, min As Single  sum = Text1(0)  max = Text1(0)  min = Text1(0)  For k = __A___ To 6  If max < Text1(k) Then  max = Text1(k)  End If

 If min > Text1(k) Then  min = Text1(k)  End If

 sum = sum + Text1(k)  Next k

 Text2 = (sum-max-min ) / 5 End Sub

A、0 B、1

C、-1 D、2

67、在列表框List1中已经有若干人的简单信息，运行时在Text1文本框输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。 

Private Sub Command1_Click()

 Dim k As Integer, n As Integer, found As Boolean  found = False

 n = Len(____A______ )  k = 0

 While k < List1.ListCount And Not found  If Text1 = Left$(List1.List(k), n) Then  Text2 = List1.List(k).name  found = True  End If  k = k + 1  Wend

 If Not found Then  Text2 = \查无此人\ End If End Sub

A、text1.text B、text1 C、text2

D、text2.text

68、在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command1_Click( )

 Dim str As String, s As String, c As String  str = UCase(Text1)  s = \ c = \

 While c >= \

 If InStr(str, c) = 0 Then  s =s & c  End If

 c = Chr$(Asc(c) ___A_____ )

 Wend

 If s <> \ Text1 = s  End If End Sub  A、-1

B、0 C、1 D、+1

69、在n个运动员中选出任意r个人参加比赛，选法有多种，用组合公式计算等于n！/r！/（n-r）！。窗体中有3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中，请填空。 Private Sub Command1_Click( )  Dim r As Integer, n As Integer  n = Text1  r = Text2

 Text3 = fun(n) / fun(n-r) / fun(r) End Sub

Function fun(n As Integer) as long  Dim t As Long  _____B_______  For k = 1 To n  t = t * k  Next  fun = t

End Function

A、t=0 B、t=1 C、k=0 D、k=1

70、以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），请填空。 

Private Sub Command1_Click( )  Dim k As Integer

 Dim sum As Single, max As Single, min As Single  sum = Text1(0)  max = Text1(0)  min = ____C______  For k = 0 To 6

 If max < Text1(k) Then  max = Text1(k)  End If

 If min > Text1(k) Then  min = Text1(k)  End If

 sum = sum + Text1(k)  Next k

 Text2 = (sum-max-min ) / 5 End Sub

A、text1(1) B、text(0) C、text1(0) D、text2(0)

71、以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），请填空。  Private Sub Command1_Click( )  Dim k As Integer

 Dim sum As Single, max As Single, min As Single  sum = Text1(0)  max = Text1(0)  min = Text1(0)  For k = 0 To 6

 If max < Text1(k) Then  max = Text1(k)  End If

 If min > Text1(k) Then  min = Text1(k)  End If

 sum = sum + Text1(k)  Next k

 Text2 = (______D_______) / 5 End Sub

A、max B、min C、sum

D、sum-max-min

72、在窗体中添加一个文本框Text1和一个命令按钮Command1，然后编写如下事件过程：

Private Sub Command1_Click( ) Dim I as integer,n as integer For i=0 to 50 I=i+3

N=n+1

If I >10 then exit for Next

Text1.text=str(n) End sub