有下列程序段，单击命令按钮执行程序后，输出结果为( )。 Option Base 1 Private Sub Command1_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=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End 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) s1=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的命令按钮，然后编写如下事件过程Option Base 1Pribate Sub Command1_Click（）Dim a（5.5） As IntegerFor i=1 To 5a（I,j）*5\10Next jNext iS=0For i=1 To 5S=s+a（i,i）Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。A．15B．13C．11D．9
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click（）Dim aa= Array（1,2,3,4,5）For i=1 To UBound（a）a（i）= a（i）+i-1NextPrint a（3）End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是（ ）。A．4B．5C．6D．7
在窗体上面画一个命令按钮，然后编写如下事件过程______ 。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4) j=1 For i=4 TO 1 Step -1 s=s+ a(i)*j j=j*10 Next i Print s End Sub运行上面的程序，单击命令按钮，其输出结果是______ 。A．4321B．12C．34D．1234
（ 23 ）在窗体上画一个命令按钮，其名称为 command1, 然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub程序运行后，单击命令按钮后，其输出结果是A ） 4321B ） 1234C ） 34D ） 12
（24）在窗体上画一个名为Command1德命令按钮，然后编写下列程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(1,2,3,4,5) j=1 For i=5 To 1 Step -1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果是 A.54321 B.123 C.12345 D.345
（26）在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Private Option Base 1 Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 IfX(i)c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输出的结果是 。A.10 B.12 C.16 D.20
有如下程序：Option Base 1Private Sub Form_Click()Dim arr,SumSum=0For i=1 To 10If arr(i)/3=arr(i)\3 ThenEnd IfNext iEnd Sub程序运行后，单击窗体，消息框的输出结果为( )。
在窗体上添加一个命令按钮(名为Command1)，然后编写如下程序：Private Sub Command1_Click()Dim a As Integer,b As Integerx=10y=20End Sub打开窗体运行后，单击命令按钮，消息框的输出结果为( )。
在窗体上添加一个命令按钮(其Name属性为Command1),然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array(4, 3, 2, 1) j = 1 For i = 4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序、单击命令按钮，其输出结果是A．4321B．1234C．34D．12
有下列程序： Option Base 0 Private Sub Command1_Click() Dim City As Variant x = Array("Visual"，"Basic"，"Microsoft"，"Programming") Print x(2) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是A．MicrosonB．错误提示C．VisualD．Basic
在窗体上画一个命令按钮，然后编写如下程序(假定变量x是—个窗体级变量)Dim x As IntegerSub inc(a AS Integer)X=K+aEnd SubPrivate Sub Command1_Click()inc2inc3inc4Prmt x；Ead Sub程序执行后，单击Command1命令按钮，输出的结果是【 】。
在窗体上画—个命令按钮，其名称为Command1，然后编写如下代码：Option Base 1Private Sub Command1_ Click() Dim a a=Array(1,2,3,4) j=1 For i=,4 To 1 Step-1 s=s+ a(i)*j j=j*10 Next i Print sEnd Sub程序运行后，单击命令按钮，其输出结果是______。A．4321B．1234C．34D．12
在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(1,2,3,4,5) j=1 For i = 5 To 1 Step -1 S = S + Art(i) * j j =j * 10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。A．54321B．123C．12345D．345
在窗体上画一个名称为command1的命令按钮，然后编写如下程序； Option Base 1 Private Sub Command1_Click() Dim arr(4)As String For i=1 To 4 arr(i) = Chr(Asc("A")+(i-1)) Next i For Each b1 In arr Print b1； Next End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。A．ABCDB．abcdC．出错信息D．1 2 3 4
在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序：Option Base1Private Sub Command1_Click()Dim c As Integer,d As Integerd=0c=6X=Array(2,4,6,8,10,12)For i=1 To 6If X(i)＞c Thend=d+X(i)c=X(i)Elsed=d-cEnd IfNext iPrint dEnd Sub程序运行后，单击命令按钮，则在窗体上输出的内容为( )。A．10B．12C．16D．20
现有如下一段程序：Option base 1Private Sub Command1_Click()Dim aa=Array(3,5,7,9)X=1For i=4 to 1 step -1s=s+a(i)*xX=x*10NextPrint sEnd Sub执行程序，单击Command1命令按钮，执行上述事件过程中，输出结果是A)9753B)3579C)35D)79
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:Option Base 1Private Sub Command1_Click()Dim as=0:j=1a=Array(1,2,3,4)For i=4 To 1 Step-1s=s+a(i)*jj=j*10NextPrint sEnd Sub运行上面的程序并单击命令按钮,其输出结果是A．4221B．1234C．34D．12
在窗体上画一个名为Command1的命令按钮，然后编写下列程序：Option Base 1Private Sub Command1_Click()Dim ArrArr=Array(1,2,3,4,5)j=1For i=5 To 1 Step-1S=S+Arr(i)*jj=j*10NextPrint SEnd Sub程序运行后，单击命令按钮，输出结果是( )。A．54321B．123C．12345D．345
在窗体上画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click() Dim a As Variant a= Array (1,2,3,4) j=1 for i=a To 1 Step-1 s=s+ a(i)*j j=j*10 Next i Print sEnd Sub 运行上面的程序，单击命令按钮，其输出结果是______ 。A．4321B．12C．34D．1234
现有如下一段程序： 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.9753B.3579C.35D.79
有下列程序段，单击命令按钮执行程序后，输出结果是( )。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
下面程序段的作用：在窗体上一个命令按钮。单击命令按钮后，将程序中字符串 "Welcome Home"中的字符全部大写输出，其后字符"Wel Back"全部小写输出。请填空。Private Sub Command1_Click()a = "Welcome Home";b = "Wel Back"c = 【 】+ LCase(B) Print cEnd Sub
在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Option Base 1 Private Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2，4，6，8，10，12) For i=1 To 6 If X(i)＞c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输出的结果为( )。A．10B．12C．16D．20
窗体上有一个名称为Combol的组合框，其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮，程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示，请填空。Option Base 1Private Sub Command1_Click()Dim city As Variantcity=_______(”北京”，”天津”，”上海”，”武汉”，”重庆”，”西宁”)For i=_______ To UBound(city)Combol．AddItem_______NextEnd Sub
在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4) j=1 For i=4 To 1 Step -1 s = s + a(i)* j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出的结果为A．4321B．12C．34D．1234
在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Option Base 1Private Sub Commandl_Click0Dim C As Integer, d As Integer d=0 c=6 X = Array(2, 4, 6, 8, 10, 12) For i= 1 To 6 If X(i) ＞ c Then d = d + X(i) c = X(i) Else d=d-c End If Next i Print dEnd Sub程序运行后，单击命令按钮，则在窗体上输出的内容为( )。A．10B．12C．16D．20
在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程Option Base 1Private Sub，Command1 Click（ ）Dim a(5，5)ks IntegerFor i=1 To jFor j=1 To 5a(i，j)=(i+j)*5＼10Next jNext iS=0For i=1 To js=s+a(i，i)Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。A.15B.13C.11D.9