（14）有下列程序，程序运行后单击命令按钮，则输出的结果是 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"；s2； End Sub Function Factorial(a()As Integer) Dim t#,i
题目
（14）有下列程序，程序运行后单击命令按钮，则输出的结果是 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"；s2； End Sub Function Factorial(a()As Integer) Dim t#,i% t=1 For i=LBound(a) To UBound(a) t=t*a(i) Next i Factorial=t End Factorial A.s1=360 s2=24 B.s1=24 s2=360 C.s1=24 s2=24 D.s1=360 s2=360
相似考题
参考答案和解析
【解析】Factorial函数的作用是计算参数数组a元素的累计乘积，即将数组a的元素从下界到上界循环相乘。在主调过程中，Factorial(a), Factorial(b)分别传递数组a和b，计算结果分别赋给s1和s2。
更多“(14)有下列程序,程序运行后单击命令按钮,则输出的结果是 Private Sub Command1_Click() Dim a%(1 ”相关问题
-
第1题：
窗体上有一个命令按钮，命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next Print S End Sub 运行程序后，单击命令按钮，输出结果是
A．10
B．14
C．15
D．120
正确答案：B
解析：考查考生对数组定义的掌握程度。
[解题要点] Array函数在默认的情况下，数组的下标从O开始，所以s=a(1)+a(2)+a(3)a(4)=2+3+4+5=14
[考点链接] 数组的定义、赋值和应用。 -
第2题：
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 Private Sub Command1_Click( ) Dim a a = Array(1,2,3,4,5) For k = 1 To4 s=s+a(k) Next Print S End Sub
A．10
B．14
C．15
D．120
正确答案：B
解析：Array函数在默认的情况下，数组的F标从0开始，所以S=a(1)+a(2)+a(3)a(4)=2 +3+4+5=14 -
第3题：
在窗体上有一个命令按钮，然后编如下事件过程：
程序运行后，单击命令按钮，在输入对话框内输入-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函数输出。 -
第4题：
窗体上有一个命令桉钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。
Private Sub Command1_click()
Dim a
a=Array(1,2,3,4,5)
Fork=1 To 4
S=S+a(k)
Next k
Print S
End Sub
A．10
B．14
C．15
D．120
正确答案：D
解析：解答本题的关键是读懂程序．程序中首先通过赋值语句定义一个有，个元素的数组(数组的下标从零开始)：接下来是通过For循环来循环绐变量S赋值(即对数组元素求和)，循环中k从1开始，因此a(k)从2开始取值，到a(4)也就是5结束，计算结果为14。 -
第5题：
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4, 5) Fork= 1 To 4 s=s+a(k) Next k Print s End Sub
A．10
B．14
C．15
D．120
正确答案：B
解析：使用Array函数为数组变量赋值，数组变量不能是具体的数据类型，只能是变体(Variant)类型，使用Array函数给数组变量赋值的3种形式如下：①显式定义为Variant变量(例如，Dim数组变量名As Variant)：②在定义时不指明类型(例如，Dim数组变量名)；③不定义而直接使用。 -
第6题：
在窗体上画一个名为Command1的命令按钮，编写如下程序：
程序运行后，单击命令按钮，输出的结果是_________。
正确答案：
4
【解析】本题考查了数组的嵌套使用。程序首先通过一个For循环给数组M的各个数组元素赋值，然后通过数组下标嵌套本身。注意：这样的嵌套时，要保证数组下标不出界，否则程序将出错。