【单选题】(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...
【单选题】有下列程序段,单击命令按钮执行程序后,输出结果为( )。 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 N...
【单选题】有下列程序段,单击命令按钮执行程序后,输出结果是( )。 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...