下列命令按钮事件过程执行后，输出结果是( )。 Form=1 To 1000Step2 a=10 Forn=1 To 20 Step2 a=a+2 Nextn Nextm Printa

A．1200

B．10000

C．30

D．20

[单选题]下列命令按纽事件过程执行后，输出的结果是______ 。 private sub command_ click() for m+1 to 10 step 2 a=10 for n=1 to 10 step 2 a+a+2 next n next m print a end subA． 60B．50C．30D．20

[单选题]下述程序执行后，输出结果是( )。 For n = 3 To 1 Step-1 x$ = String$(n, "#") Print x$ Next nA．1# 2# 3#B．### ##C．# ## ###D．3# 2# 1#

[单选题]下列程序执行后，输出结果是( )。F．or n=3 To 1 Step-1x＄=String＄(n,"#")Print x＄Next nA．1# 2# 3#B．)### ## #C．# ## ##D．3# 2# 1#

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

[单选题]有如下事件过程，单击命令按钮扣，输出结果是 Private Sub Command1 Click( ) Dim b% (1 To4) ,j%, t# For j=1 To 4 b(j) =j Next j t=Tax(b( ) ) Print "t="; t, End Sub Function Tax (a( ) As Integer) Dim t#, i% t=1 For i=2 To UBound (A)t=t * a(i) Next i Tax=t End FunctionA．t=18

[单选题]执行下面这段程序后，单击命令按钮，窗体中输出结果是 ______。 Private Sub Command1_Click() a=1 : b=4 : c = 9 : d = 5 If a ＜ b Then If c＜d Then x=True Else If a＜c Then x=False Else x=True End If End If End If Print Val(x) End SubA．TrueB．FalseC．0D．1

[单选题]单击命令按钮执行下列程序，其输出结果是( )。Private Sub Command1_Click()D．im a As Integer,b As Integer,c As Integera=3b=4c=5Prim SecProc(c,b,A)E．nd SubF．unction FirProc(x As Integer,y As Integer,z As Integer)F．irProc=2*x+y+3*zE．nd FunctionF．unction SecProc(x As Integer,y

[单选题]单击命令按钮执行下列程序，其输出结果是( )。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=3 b=4 c=5 Print SecProc(c, b,a)End Sub Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2*x+y+3*z End Function Function SecProc(x As

[单选题]单击命令按钮执行下列程序，其输出结果是。 Private Sub Commana1_Click() Dim a As Integer,b As Integer,c As Integer a = 3 b = 4 c = 5 Print SecProc(c,b,a) End Sub Function FirProc(x As Integer,y As Integer,z As Integer) FirProc = 2 * x + y + 3 * z End Function Function Sec

[单选题]单击命令按钮执行下列程序，其输出结果是( )。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=3 b=4 c=5 Print SecProc(c,b,A)End Sub Function FirProc(x As Integer, y As Integer, z As Integer) FirProc=2*x+y+3*Z End Function Function SecProc(x As