下列程序打印结果为 ______。Private Sub Command1_ Click() Dim a(5)As String Dim b As Integer Dim i As Integer for i = 0 To 5 a(i)= i +1 Print a(i); Next iEnd SubA．12345B．6C．1 2 3 4 5 6D．0
题目
下列程序打印结果为 ______。Private Sub Command1_ Click() Dim a(5)As String Dim b As Integer Dim i As Integer for i = 0 To 5 a(i)= i +1 Print a(i); Next iEnd Sub
A．12345
B．6
C．1 2 3 4 5 6
D．0
相似考题
参考答案和解析
解析：本题是针对输出格式的问题。字符串输出没有正负号，字符之间没有空格；数字输出有正负号，字符之间有空格。打印的结果为123456。
更多“下列程序打印结果为 ______。Private Sub Command1_ Click()Dim a(5)As StringDim bAs IntegerDim ”相关问题
-
第1题：
下列程序的输出结果是【 】
Private Sub Command1_Click()
Dim a(1 To 20)
Dim i
For i=l To 20
a(i)=i
Next i
For Each i In a()
a (i) =20
Next i
正确答案：20
20 解析：本题考查For Next...Each语句的用法，For Next...Each语句是针对数组和集合中的每一个元素进行一次操作的语句组合，具体格式我们前面已经有详细介绍。本题定义了一个数组，然后利用For循环将1-20赋给数组元素，又利用For Each Next语句将数组的每一个元素定义为20，故输出结果为20。 -
第2题：
设有如下程序：
Private Sub Form. Click（ ）
Dim ary(1 To 5)As Integer
Dim i As Integer
Dim sum As Integer
For i=1 To 5
ary(i)=i+l
sum=sum+ary(i)
Next i
Print sum
End Sub
程序运行后，单击窗体，则在窗体上显示的是（ ）。
A.15
B.16
C.20
D.25
正确答案：C
C。【解析】本题中因为i是从l～5递增，当i=1时，ary(1)=1+i=2，sum=sum+2----2，当i=2时，ary(2)=1+i=2+1=3，sum=sum+3=2+3=5，同理当i=3时，ary(3)=4，sum=9，当i=4时，ary(4)=5，sum=14，当i=5时，ary(5)=6，sum=20，所以答案选择C。 -
第3题：
下列程序的输出结果为( )。 Private Sub Command1_Click() Dim a(20) For j=1 To 20 Step2 a(j)=j Next i Print a(1)+a(2)+a(3) End Sub
A．4
B．5
C．6
D．7
正确答案：A
-
第4题：
下列程序的执行结果为______。Private sub Command1_ Click ( ) a = 100 b = 50 if a ＜＞ b then a = a + b Else b = b -a Print a, bEnd Sub
A．50 50
B．150 50
C．200 200
D．10 10
正确答案：B
解析：本题的重点为单行结构if语句的使用。当条件为真时，执行then后面的表达式，否则执行Else后面的表达式。其功能可以用IIf函数来替代。 -
第5题：
下列程序段的运行结果是：Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while I＞n I=I- n Loop Print IEnd Sub在窗体上打印的结果是______。
A．3
B．5
C．6
D．8
正确答案：A
解析：while型循环的条件为假时离开循环，即i=3时就离开，最后打印的i值为3。 -
第6题：
有如下过程，将两次调用过程proc的结果分别填于空【 】和【 】处。
Private Sub Command1_Click( )
Dim a As Integer
Dim b As Integer
a=2
b=5
Call proc(a,B) 【 】
Call proc(A) 【 】
End Sub
Private Sub proc(x As Integer,Optional y)
Dim z As Integer
If IsMissing(y) Then
MsgBox ("没有提供可选参数")
Else
z=x*y
MsgBox ("乘积=" + Str(z))
End If
End Sub
正确答案：乘积：10 没有提供可选参数
乘积：10 ,没有提供可选参数 解析：本题中出现了可选参数，注意函数IsMissing()的使用。空[9]处的调用语句的结果是显示“乘积＝ 10”空[10]处调用的结果是显示“没有提供可选参数”。显然，第二次调用中，由于第二个可选参数默认，使 IsMissing()函数的值为True，才使程序流程进入Then子句的分支。
在没有指定可选参数的默认值时，可选参数的默认值被默认为变体类型的Empty值。当然，用户也可以提供可选参数的默认值，指定方式是在用Optional声明的形式参数后面用“＝”号赋默认值。指定默认值后，即使没有提供可选参数，函数IsMissing()的值均为False，因为程序把指定的默认值默认为可选参数的值，因而没有丢失。将上例稍加修改，在可选参数y后为其指定默认值1。
Private Sub proc(x As Integer，Optional y＝1)
空[10]处调用的结果变为显示“乘积=2”。显然，第二次调用中，虽然第二个可选参数默认，但将默认值1作为形式参数y的初值。从If语句分支的进入情况可以看出，该次调用中IsMissing()函数的值为False，才使程序流程进入Else子句的分支。 -
第7题：
下列程序的输出结果是【 】。
Private Sub Command1_Click()
Dim a(1 To 20)
Dim i
For i=1 To 20
a(i)=i
Next i
For Each i In a()
a(i)=20
Next i
Print a(2)
End Sub
正确答案：20
20 解析：本题考查For Next…Each语句的用法，For Next…Each语句是针对数组和集合中的每一个元素进行一次操作的语句组合，具体格式我们前面已经有详细介绍。本题定义了一个数组，然后利用For循环将1～20赋给数组元素，又利用For Each Next语句将数组的每一个元素定义为20，故输出结果为20。 -
第8题：
单击一次命令按钮之后，窗体中的输出结果为______。 Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 10 b = 20 Call Num(a,B)Print a, b End Sub Sub Num(a,B)t = a a = b / t b = t End Sub
A．20 10
B．10 20
C．2 10
D．10 10
正确答案：C
-
第9题：
使用窗体的Click事件在窗体输出1～1000之间能同时被5和7整除的整数，如图所示，
请填空
Private Sub Form_Click()
Dim i As Integer
Dim Sum As Integer
Cls
For i=1 To 1000
If 【 】 Then
Sum=Sum+i
Printi
End If
Next i
Print
Print"Sum="&Sum
End Sub
正确答案：i Mod 5=0 And i Mod 7=0
i Mod 5=0 And i Mod 7=0 解析：Mod()函数的功能是求余，题目要求计算能同时被 5以及7整除的数，使用i Mod 5=O And i Mod 7=0可以实现。 -
第10题：
Private Sub Commandl Click（）
Dim i As Integer, j As Integer
Dim a （10,10）As Integer
For i=1 To 3
For j= i To 3
a（i,j）=（i-1）*3+j
Print a （i,j）;
Next j
Print
Next i
End Sub
程序运行后，单击命令按钮，窗体上显示的是（ ）。
正确答案：D
-
第11题：
下列程序的输出结果是( )。
Private Sub Command1_Click()
Dim arr(1 To 10)
For i=1 To 10
Next i
For Each i In arr()
Next i
End Sub
正确答案：15
15 解析： 本题考查VBA中For Each…Next循环的知识。For Each…Next循环是一种特殊的循环，这种循环只能用在数组中，用来遍历数组中的每一个元素。本题中的第一个循环为数组的每个元素赋值，而第二个循环中更改了这些值。综合两个循环来看，实际上最后arr(i)的值为2*i+1。 -
第12题：
下列程序的执行结果为 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= "abcd" Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End Sub
A．dcba
B．abdc
C．abcd
D．dabc
正确答案：A
解析：主调函数最终输出值是s2值，这就得调用函数过程Transfer函数。被调过程Transfer的参数xstr，ystr从主调函数中收到实参s1，s2传来的值"abcd"，过程Transfer开始声明了两个String型的变量，xstr、ystr。i=Len(xstr)语句的功能是：i的值就是xstr的长度，此题为4。程序代码执行DoWhile…Loop的循环语句。循环体为tempstr=tempstr+Mid(xstr，i，l)，其中变量是I，由I=Len(xstr)开始的，每循环一次减1。此程序的最后输出的是字符串s1的反向输出。 -
第13题：
下列程序输出的结果为【 】。
Private Sub Commandl_Click( )
Dim a As Boolean
a = True
If a Then GoTo 11 Else GoTo 22
11:
Print "VB";
22:
Print "VC"
End Sub
正确答案：VBVC
VBVC 解析：Goto语句是指使程序无条件地转移到过程中指定的语句处执行。其后面必须有指定的行标签，否则程序会出错。 -
第14题：
下面程序的输出结果是【 】。
Private Sub Commandl_Click( )
Dim a(1 To 20)
Dim i
Fori = 1 To 20
a(i) = i
Next i
For Each i In a( )
a(i) = 20
Next i
Print a(2)
End Sub
正确答案：20
20 解析：For Each... Next语句是针对数组和集合中的每一个元素进行一次操作的语句组合。本题定义了一个数组，然后利用For循环将1-20赋给数组元素，又利用For Each... Next语句将数组的每一个元素定义为20，故输出结果为20。 -
第15题：
下列程序的运行机结果是【 】。
Private Sub Form_ Click()
Dim k As Integer
n= 5
m= 1
k= 1
Do
m=m+2
k= k+1
Loop While k＜=n
Print m
End Sub
正确答案：11
11 -
第16题：
有如下事件过程：
Private Sub Form. Active ( )
Dim Score (1 to 3) As Integer
Dim i As Integer
Dim t As Variant
Fori=3 To 1 step-1
Score (i) = 2 * i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为【 】。
正确答案：24 6
24 6 解析：本题考查了数组的定义和For Each…Next语句。题中定义了下标下界为1下标上界为3的Score数组，通过For循环语句赋值后，再通过For Each… Next语句在窗体上输出数组中的每个成员。 -
第17题：
下列程序的运行结果为______。Private Sub Command1_ Click() Dim s As Long Dim x As Integer s = 0 for x = 99 To 1 step - 2 s=s+ x Next x Print sEnd Sub
A．100
B．500
C．2500
D．5000
正确答案：C
解析：单循环次数“r=int((终值-初值+步长)/步长)”。计算结果是将1～100内的奇数相加。 -
第18题：
下列程序的输出结果是【 】。
Private Sub Command l Click()
Dim a(1 TO 20)
Dim i
For i＝1 TO 20
a(i)＝i
Next i
For Each i In a()
a(i)＝20
Next i
Print a(2) End Sub
正确答案：20
20 解析：本题考查For Next…Each语句的用法，For Next…Each语句是针对数组和集合中的每一个元素进行…次操作的语句组合。本题定义了一个数组，然后利用For循环将1～20赋给数组元素，又利用For Each Next语句将数组的每一个元素定义为20，故输出结果为20。 -
第19题：
有如下函数过程。
Function UNC(ByVal x As Integer，ByVal y As Integer)As Integer
Do While y＜＞0
S=x/y
x=y
y=S
Loop
UNC=x
End Function
以下事件调用该函数，程序运行结果是【 】。
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a=12
b=2
x=UNC(a，b)
Print x
End Sub
正确答案：6
6 解析：本题考查函数调用和输出格式的语句。调用UNC的过程如下：
x=12，y=2时，sic=6，x=2，y=6：
x=2，y=6时，sic=0，x=6，y=0；
y=0，所以跳出循环，输出x=6并结束程序。注意：过程的定义和调用。 -
第20题：
有过程如下：Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下：Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5，运行结果为 ______。
A．100
B．120
C．200
D．50
正确答案：B
解析：本题难点是实、虚参数传递的问题。tot按ByRef参数传递。子过程的功能是计算n!，“5!=120”。 -
第21题：
单击窗体时，下列程序代码的执行结果为______ 。 Private Sub Test (x As Integer) x=x*2+1 If x ＜ 6 Then Call Test(x) End If x-x*2+1 Print x; End Sub Private Sub Command1_ Click () Test 2 End Sub
A．23 47
B．5 11
C．10 22
D．23 29
正确答案：A
-
第22题：
假定有如下的Sub过程：Sub Sub1 (x As Single, y As Single) t=x x = t/y y = t Mod yEnd Sub 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 5 b = 4 Sub1 a, b Print a; b End Sub 程序运行后，单击命令按钮，输出结果为______。
A．5 4
B．1 1
C．1.2 5.4
D．1.25 1
正确答案：D
解析：本题重点是在子过程的调用过程中，虚实参数的传送问题，变量a和b按址传送，返回子过程的x和y值。 -
第23题：
已知两个窗体Form1、Form2，下列事件过程中，______可以实现单击窗体Form1的命令按钮时，显示窗体Form2，而窗体Form1消失。
A．Private Sub Command1_ Click() LoadForm2 Form1. Hide End Sub
B．Private Sub Command1_ Click() Show Form2 Form1. Hide EndSub
C．Private Sub Command1_ click() Show Form2 Form1. Hide End Sub
D．Private Sub Command1_ click()
正确答案：B