有下列程序段，单击命令按钮执行程序后，输出结果为( )。 Option Base 1 Private Sub Command1_Cliek() Dim x x=Array(23, -5, 17, 38, -31, 46, 11, 8, 5, -4) s1=0 s2=0 Fork=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

[单选题]有下列程序段，单击命令按钮执行程序后，输出结果是( )。Option Base 1Private Sub Command1 Click()D．im xx=Array(23,-5,17,38,-31,46,11,8,5,-4)31=0s2=0F．or k=1 To 10If(x(k)>0)ThenS1=S1+x(k)E．lses2=s2+x(k)E．nd IfNext kY=s1/Abs(s2)Print YE．nd SubA．148B．40C．40D．3.7

[单选题]（35）有下列程序段，单击命令按钮执行程序后，输出结果是 。Option Base 1Private Sub Commandl_Click() Dim x x=Array(23,-5,17,38,-31.46,11,8,5,-4) s1=0 s2=0 For k=1 To 10 If(x(k)>0)Then s1=sl+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End SubA.148 B.40 C.-40 D.3.7

[单选题]单击命令按钮时，下列程序段的执行结果为（ ）。A． 8B． 6C． 4D． 2

[单选题]有以下程序段：运行程序段后单击窗体，则输出结果为（ ）。A．21B．13C．8D．25

[单选题]有下列程序，程序运行后单击命令按钮，则输出的结果为( )。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

[单选题]有如下的程序：单击命令按钮后，输出结果为：（ ）A．2 2B．4 4C．5 5D．6 6

[主观题]下面运行程序后，单击命令按钮，输出的结果是______。Private Sub Commandl_clck()D．im a%(1 To 4)，b%(3 To 6)，i%，s1，s2F．ori=1 To 4a(i)=iNextiF．or i=3 To 6b(i)=iNextis1=YAS(a)S2=YAS(b)Printt"s1="；S1"S2="；s2E．nd Sub

[单选题]单击命令按钮时，下列程序段的执行结果为( )。 Private Sub Command1_Click() Dim FirstStr As String FirstStr="abcdef" Print PickMid(FirstStr) End Sub Private Function PickMid(xStr As String)As String Dim tempStr As String,strLen As Integer TempStr=" " strLen=Len(xStr) i

[单选题]单击命令按钮时，下列程序段的执行结果为( )。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a-2:b=4:c=6 Call S1(a,b)Print "a="; a; "b="; b; "c="; c Call S2(a,b)Print "a ="; a; "b="; b; "c="; c; End Sub Private Sub S1(x As Integer, y

[单选题]程序运行后，单击命令按钮Command1时的输出结果为（ ）。A． A(5)=5B． A(5)=10C． A(5)=20D． A(5)=40