itgle.com
运行下列程序，单击窗体后输出的结果是( )。Private Sub Form_Click()Dim aDim s As Integer, i As Integera = Array(1, 2, 3, 4, 5, 6)s = 1For i = 5 To 1 Step -2s = s * a(i)Next iPrint sEnd SubA、 15B、 48C、 120D、 720
题目
运行下列程序，单击窗体后输出的结果是( )。
Private Sub Form_Click()
Dim a
Dim s As Integer, i As Integer
a = Array(1, 2, 3, 4, 5, 6)
s = 1
For i = 5 To 1 Step -2
s = s * a(i)
Next i
Print s
End Sub
A、 15
B、 48
C、 120
D、 720
相似考题
更多“运行下列程序,单击窗体后输出的结果是( )。Private Sub Form_Click()Dim aDim s As Intege ”相关问题
-
第1题：
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 Private Sub Commandl_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数组变量名）；③不定义而直接使用。 -
第2题：
窗体上有一个命令按钮，命令按钮的单击事件过程如下： 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
[考点链接] 数组的定义、赋值和应用。 -
第3题：
在窗体上画一个名为Command1的命令按钮，编写如下程序：
程序运行后，单击命令按钮，输出的结果是_________。
正确答案：
4
【解析】本题考查了数组的嵌套使用。程序首先通过一个For循环给数组M的各个数组元素赋值，然后通过数组下标嵌套本身。注意：这样的嵌套时，要保证数组下标不出界，否则程序将出错。 -
第4题：
设有如下程序： Private Sub Form. Click（ ） Dim s As Long，f As Long Dim n As Integer，i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（ ）。
A.32
B.33
C.34
D.35
正确答案：B
B。【解析】本题考查For循环，当f=1时，i=1，计算f=f*i=1*1=1；S=S十f=0十1=1，循环继续，当i=2时，f=f*i=1*2=2，S=s+f=1+2=3，循环继续，当i=3时，f=f*i=2*3=6，S=s+f=3+6=9，循环继凄，当i=4时，f=f*i=6*4=24，S=s+f=9+24=33，所以最后输出结果为33，答案选择B。 -
第5题：
阅读下列程序： Private Sub Form Click() Dim i As Integer， sum As Integer For i = 2 To 10 If i Mod 2 ＜＞ 0 Then Print i； Else sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，在窗体上的输出结果是
A．3 5 7 9 30
B．1 3 5 7 9
C．2 4 6 8 20
D．11 15 17 19 20
正确答案：A
解析：本题For循环的循环变量初值为2，终值为10，步长为1。在循环体内，判断循环变量的值是否为偶数，如果是，则将该值累加给变量sum，否则输出循环变量的值。不难看出，运行该程序后，在循环体内输出的是奇数，而累加的是偶数。在循环体外，输出偶数的累加之和。