itgle.com
下面运行程序后,单击命令按钮,输出的结果是 【 】 。Private Sub Command1_Click()Dim a%(1 To 5),i%, s#For i=1 To 5a(i)=iNexts=Fun(a)Print "s="; s;End SubFunction Fun(a() As Integer)Dim t#, i%t=1For i=LBound(a) To UBound(a)t=t a(i)NextFun=tEnd Function
题目
下面运行程序后,单击命令按钮,输出的结果是 【 】 。
Private Sub Command1_Click()
Dim a%(1 To 5),i%, s#
For i=1 To 5
a(i)=i
Next
s=Fun(a)
Print "s="; s;
End Sub
Function Fun(a() As Integer)
Dim t#, i%
t=1
For i=LBound(a) To UBound(a)
t=t a(i)
Next
Fun=t
End Function
相似考题
更多“下面运行程序后,单击命令按钮,输出的结果是 【】 。 Private Sub Command1_Click()Dim a%(1 To 5),i ”相关问题
-
第1题：
下面运行程序后，单击命令按钮，输出出的结果是【 】。
Private Sub Command1_Click( )
Dim a% (1 To 5) ,i%, s
For i = 1 To 5
a(i) =i
Next
s = Fun(a)
Print"s="; s;
End Sub
Function Fun(a() As Integer)
Dim t, i%
t=1
For i = LBound(A0To UBound(a)
t=t * a(i)
Next
Fun =t
End Function
正确答案：s1=24 s2=360
s1=24 s2=360 解析：程序首先调用循环语句为数组a、b赋值，其中a(i)=i；b(i)=i，且数组。的上下界分别为1和5，接着将数组。作为参数调用Fun过程，在Fun过程中，定义了两个变量t及i，i作为循环语句For的变量，它的初始值和终值分别为数组的上下界，循环体为t =t*a(i)，即将a(i)的值乘以t，然后再赋给t，当循环结束后，程序返回的就是数组。中的各元素的积，输出结果为：s=120。注意：函数调用和参数传递。 -
第2题：
在窗体上有一个命令按钮，然后编写如下事件过程。 Private Sub Command1_Click() Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next For Each b h a Print b； Next End Sub 程序运行后，单击命令按钮，输出结果是
A．ABCDE
B．1 2 3 4 5
C．abcde
D．出错信息
正确答案：A
解析：本题考查了数组的赋值操作以及 For Each…In循环语句。本程序段首先定义了一个一维数组变量，然后用For循环为其赋值，Asc()函数的作用是返回字符的ASCII码，字符“A”的ASCII码为65， Chr()函数的作用是将ASCII码值变为相应的字符，而“a(i)=Chr(Asc(“A”)+(i-1))”的作用是将每次比原来大1的ASCII码值变为字符赋给a，所以a的元素是“A，B，C，D，E”。For Each…In用于输出a中元素的值，所以正确答案是选项A。 -
第3题：
下面程序运行后，单击命令按钮，输出的结果是______。
Private Sub Command1_Click()
Dim a%(1 To 5)，i%，s
For i=1 To 5
a(i) =i
Next
s=Fun(A)Print "s="；s；
End Sub
Function Fun(a() As Integer)
Dim t，i%
t=1
For i=LBound(A)To UBound(A)t=t*a(i)
Next
Fun=t
End Function
正确答案：120
120 解析：程序首先调用循环语句为数组a、b赋值，其中a(i)=i，且数组a的上下界分别为1和5，接着将数组。作为参数调用Fun过程，在Fun过程中，定义了两个变量t及i，i作为循环语句For的变量，它的初始值和终值分别为数组的上下界，循环体为t=t*a(i)，即将a(i)的值乘以t，然后再赋给t，当循环结束后，程序返回的就是数组a中的各元素的积，故输出结果为：s=120。 -
第4题：
在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a(5)As String For i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是______。
A． ABCDE
B．1 2 3 4 5
C．abcde
D．出错信息
正确答案：A
解析：语句Chr(Asc("A")+(i-1))的作用是将字符A的ASCII码值加上循环变量的值减1，求出此ASCII码对应的字符。将计算出的字符赋值给数组arr的第i个元素。循环结束后，arr的5个元素分别为字符ABCDE。Print方法输出项的最后用分号结束，使得输出不换行。 -
第5题：
在窗体上有一个命令按钮，然后编写如下事件过程：
Private Sub Command1Click（ ）
Dim a(5)As String
For i=1，To 5
a(i)=Chr(Asc("A")+(i-1))
Next i
For Each b In a
Print b；
Next
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
A.ABCDE
B.1 2 3 4 5
C.abcde
D.出错信息
正确答案：A
A。【解析】Asc(字符)将字符转换为其ASCII码值，Chr(数字)将数字转换为ASCII相对应的字符。本程序首先定义一维字符串数组a(5)，然后将字符“A”的ASCII码值分别加上0、1、2、3、4，转换为字符串存入a(5)。其值为ABCDE。