vb循环结构选择题(3)

来源：网络收集时间：2026-08-27

导读： 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()

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）（

…… 此处隐藏：823字，全部文档内容请下载后查看。喜欢就下载吧 ……

vb循环结构选择题(3).doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.jiaowen.net/wendang/444215.html（转载请注明文章来源）

上一篇：基于关联分析的学生活动参与度与高校社团管理实证研究
下一篇：2010年天津市河西区小升初语文试卷