计算机二级
有下列程序，程序运行后单击命令按钮，则输出的结果为( )。Private Sub Command1_Click()Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(A) s2=Factorial(B)Print "s1="；s1；"s2="；s2End SubFunction Factorial(a()As Integer)Dim t#，i% t=1
题目
有下列程序，程序运行后单击命令按钮，则输出的结果为( )。Private Sub Command1_Click()Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# For i=1 To 4 a(i)=i Next i For i=3 To 6 b(i)=i Next i s1=Factorial(A) s2=Factorial(B)Print "s1="；s1；"s2="；s2End SubFunction Factorial(a()As Integer)Dim t#，i% t=1 For i=LBound(A)To UBound(A) t=t*a(i) Next i Factorial=tEnd Function
A．s1=360 s2=24
B．s1=24 s2=360
C．s1=24 s2=24
D．s1=360 s2=360
相似问题和答案
第1题：
在窗体上添加一个命令按钮(名为Commandl)，然后编写如下程序：
打开窗体运行后，单击命令按钮，消息框的输出结果为__________。
20【解析】本题考查IIf函数的知识。对于Ⅱf函数可用于执行简单的条件判断操作，当第一个参数为真时返回第二个参数值，否则返回第三个参数值。因为x>y为假，所以返回Y的值也就是返回20。
第2题：
阅读程序：
运行上面的程序，单击命令按钮，输出结果为______。
A．8 16
B．9 14
C．10 20
D．7 14
解析：本题的难点是子函数调用过程和Static变量。子函数有Static变量c，在第一次子函数调用时其值为2，局部变量b为2，但在第二次子函数调用时c为“c=2+2=4”，b为“b=0+2=2”。表达式“a*b*c”的结果通过子函数名F返回。
第3题：
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click（）
Dim s，i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 。
55
第4题：
在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：
窗体打开运行后，单击命令按钮，则消息框的输出结果为__________。
2500【解析】本题考查循环的知识。这个问题比较简单，实际上就是求l到100之间的奇数和，最终结果为2500。
第5题：
在窗体上有一个命令按钮，然后编如下事件过程：
程序运行后，单击命令按钮，在输入对话框内输入-1，输出结果是 。
-1的平方根是一个虚数
【解析】在Sub过程中，定义了一个Double型变量N，并调用InputBox函数，给N赋值，即将从对话框中输入的-1赋给N；通过运算符”&”，将N与字符串”的平方根”连接起来并赋给Msg；在条件块语句中将N作为参数，调用SR事件过程，将Function过程的返回值作为测试表达式；在SR函数中，调用Sgn函数测试x的值为正数还是负数，如果是正数，那么就执行条件块语句中的SR=Sqr(x)，即将X的平方根作为返回值，如果x值为零，Sgn函数返回值为零，那么就将0作为返回值；如果为负数。Sgn函数返回值为-1，SR=-1，即将-1作为返回值；在Sub程序的条件块语句中，根据SR返回值的不同，执行不同操作，当返回值为0，将Msg字符串加”是0”，赋给Ms9，如果是-1，将Msg加”是一个虚数”赋给Msg，当为其他时，即在平方根时，将字符串Msg加”是”，再加上这个数的平方根赋给Msg，并用MsgBox函数输出。
第6题：
在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
程序运行后，单击命令按钮，其输出结果为__________。
9【解析】本题考查VBA中程序设计的知识。对于这个问题，首先注意到循环的次数为6次；然后注意到循环内的两个If语句为顺序关系而不是嵌套关系，第一个If语句只有第一次循环时才会满足；第一次循环时首先执行第一个If语句把x赋值为1，然后执行第二个If语句；以后各次循环均照此分析，前4次循环x自加l，后两次循环X自加2，最后输出结果为9。
第7题：
在窗体上有个命令按钮，然后编写如下事件过程
程序运行后，单击命令按钮，先后在两个输入框中分别输入”1”和”5”，则输出结果为
A．1
B．51
C．6
D．15
在默认的情况下，InputBox的返回值是一个字符串，而不是变体类型。如果没有事先声明返回值变量的类型，或声明为变体类型，则当把函数的返回值赋给这个变量时，VisualBasic将把它作为字符串来处理。因此当需要用InputBox函数输入数据，并且需要输入的数值参加运算时，必须在进行运算前用Val函数(或其他函数)把它转换为相应类型的数值，否则有可能会得到不正确的结果。如果正确地声明了返回值的变体类型，则可不必进行类型转换；由于本题没有事先声明m、n变量，所以，m、n所获得的为字符“1”和“5”，所以输出n+m时是“51”。
第8题：
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
sum=0
For i=1 To 100 step 2
Next i
MsgBox sum
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
2500 解析： 本题考查循环的知识。这个问题比较简单，实际上就是求1到100之间的奇数和，最终结果为2500。
第9题：
在窗体上画一个名为Command1的命令按钮，编写如下程序：
程序运行后，单击命令按钮，输出的结果是_________。
4
【解析】本题考查了数组的嵌套使用。程序首先通过一个For循环给数组M的各个数组元素赋值，然后通过数组下标嵌套本身。注意：这样的嵌套时，要保证数组下标不出界，否则程序将出错。
第10题：
（ 11 ）在窗体中添加一个命令按钮，名称为 Command1 ，然后编写如下程序：
Private Sub Command1_Click()
Dim s ， i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 【 11 】 。
