计算机二级
有下列程序段，单击命令按钮执行程序后，输出结果是( )。Option Base 1Private Sub Command1 Click()Dim xx=Array(23,-5,17,38,-31,46,11,8,5,-4)31=0s2=0For k=1 To 10If(x(k)>0)ThenS1=S1+x(k)Elses2=s2+x(k)End IfNext kY=s1/Abs(s2)Print YEnd SubA．148B．40C．40D．3.7
题目
有下列程序段，单击命令按钮执行程序后，输出结果是( )。
Option Base 1
Private Sub Command1 Click()
Dim x
x=Array(23,-5,17,38,-31,46,11,8,5,-4)
31=0
s2=0
For k=1 To 10
If(x(k)>0)Then
S1=S1+x(k)
Else
s2=s2+x(k)
End If
Next k
Y=s1/Abs(s2)
Print Y
End Sub
A．148
B．40
C．40
D．3.7
相似问题和答案
第1题：
在窗体上画一个命令按钮(名称为Command1)，编写如下事件过程： Private Sub Command1_Click() b=5 c=6 Print a=b+c End Sub 程序运行后，单击命令按钮，输出的结果是： ______。
A．a=11
B．a=b+c
C．a=
D．假
解析：在本题中，变量a未定义，因此初始值为0，在表达式a=b+c中，a=0，b+c=5+6=11，所以表达式的值为False，程序的输出结果为False。
第2题：
窗体上命令按钮Command1的事件过程如下：
End Sub 该程序执行后，输出结果是（ ）。
A) 【解析】本题考查二维数组元素的赋值。二维数组中a中第i行j列元素为(i-1)*3+j，i、J分别从3变化到4，因此，输出a(3，3)、a(3，4)、a(4，3)、a(4，4)的元素为：9 10 12 13。
第3题：
在窗体上画一个命令按钮，然后编写如下程序：
Dim x As Integer
Sub inc(a As Integer)
x=x+a
End Sub
Private Sub Command1_Click()
inc 2
inc 3
inc 4
Msgbox x；
End Sub
程序执行后，单击Command1命令按钮，消息框显示结果是【 】。
9 解析：inc函数每执行一次就向x上累加一次传入的参数，所以最后x的值为：2+3+4=90
第4题：
在窗体上画一个名为Command1的命令按钮，编写如下程序：
程序运行后，单击命令按钮，输出的结果是_________。
4
【解析】本题考查了数组的嵌套使用。程序首先通过一个For循环给数组M的各个数组元素赋值，然后通过数组下标嵌套本身。注意：这样的嵌套时，要保证数组下标不出界，否则程序将出错。
第5题：
现有如下一段程序： Option Base 1 Privalc Sub Command1 Click（ ） Dim a a=Array(3，5，7，9‘) x=1 For i=4，10 j Step-1 s=s+a(i)*X x=x*10 Next i Print s End Sub 执行程序，单击Command1命令按钮键，执行上述事件过程，输出结果是（ ）。
A.9753
B.3579
C.35
D.79
B。【解析】在此程序中定义了一个数组，此时对数组中的数进行循环，s=s+a(4)*x；此时x=1，a(4)=9，S=0，所以S=0+9*1=9，此时x=X*10，所以x=10，再次循环，s=s+a(3)*x，此时a(3)=7，x=10，S=9，所以s=9+7*10=79，依次类推，所以得出的结果为3579。
第6题：
在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程：Private Sub Command1_Click() b=5 c=6 Print a=b+ cEnd Sub 程序运行后，单击命令按钮，输出的结果是______。
A．a=11
B．a=b+ c
C．a=
D．False
解析：在本题中，变量a未定义，因此初始值为0，在表达式a=b+ c中，a=0，b+ c=5+6=11，所以表达式的值为False，程序的输出结果为False。
第7题：
现有如下一段程序：
Option base 1
Private Sub Command1_Click()
Dim a
a=Array(3,5,7,9)
X=1
For i=4 to 1 step -1
s=s+a(i)*x
X=x*10
Next
Print s
End Sub
执行程序，单击Command1命令按钮，执行上述事件过程中，输出结果是
A)9753
B)3579
C)35
D)79
【答案】：B
【知识点】：循环语句及数组的使用方法
【解析】：option base 1表示数组下标从1开始，则a数组元素a(1)=3, a(2)=5, a(3)=7, a(4)=9。第一次循环：x=1,s=0+a(4)*1=9, 第二次循环：x=10,s=9+a(3)*10=79, 第三次循环：x=100,s=79+a(2)*100=579, 第四次循环：x=1000,s=579+a(1)*1000=3579, 故本题选B。
第8题：
在窗体上画一个命令按钮，然后编写如下程序(假定变量x是—个窗体级变量)
Dim x As Integer
Sub inc(a AS Integer)
X=K+a
End Sub
Private Sub Command1_Click()
inc2
inc3
inc4
Prmt x；
Ead Sub
程序执行后，单击Command1命令按钮，输出的结果是【 】。
9 解析：inc函数每执行一次就向x上累加一次传入的参数，所以最后x的值为：2+3+4=9。
第9题：
在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() Dim j As Integer,s As Integer s=1 Do s=s+j j=j+1 Loop Until j＞=5 Print s End Sub 程序运行后，单击命令按钮，在窗体上输出的结果是( )。
A．11
B．1
C．16
D．7
解析：当发生Command1_Click事件时，定义了一个变量j和一个变量s并给s赋值为1，执行Do…LoopUntil循环，此处需注意循环的结束条件是Until后面的条件为True。第一次执行循环体后，s的值为1，j的值为1，条件“j＞=5”为False，接着循环；第二次执行循环体后，s的值为2，j的值为2，条件“j＞=5”为False，接着循环；第三次执行循环体后，s的值为4，j的值为3，条件“j＞=5”为False，接着循环；第四次执行循环体后，s的值为7，j的值为4，条件“j＞=5”为False，接着循环：第五次执行循环体后，s的值为11，j的值为5，条件“j＞=5”为True，结束循环。输出的s的值为11。
第10题：
在窗体上画一个名为Command1的 命令按钮,然后编写以下程序 Private Sub Command1_Click（) Dim a（10) as integer For k=10 to 1 Step -1 a（k)=20-2*k Next k k=k+7 Print a（k-a（k)) End Sub 运行程序后,单击命令按钮,输出结果是 。
A．18
B．12
C．8
D．6