A.True
B.False
C.0
D.1
[单选题]执行下面的程序,单击命令按钮后,窗体中的输出结果是 ______。 Private Sub Cotomand1_Click() Ch$="Welcome Home!" a=Len(ch$) For i= 1 To a b$ = Mid(ch$, i 1) If b$ = "m" Then m = m + 1 Next 1 Print m End SubA.2B.3C.1D.0
[单选题]下面程序运行后,单击命令按钮,输出的结果是Private Sub Command1_Click()D.im a%(1 To 4) , b%(2 To 6) , i%, str1#, str2#F.or i=1 To 4a(i)=iNextF.or i=2 To 6b(i)=iNextstr1=YAG(a)str2=YAG(b)Print "str1="; str1; "str2="; str2E.nd SubF.unction YAG(a() As Integer)D.im t#, i%
[主观题]下面运行程序后,单击命令按钮,输出的结果是______。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 a%(1 To 4) , b%(2 To 6) , i%, str1#, str2# For i = 1 To 4 a(i) =i Next For i = 2 To 6 b(i) =i Next str 1 = YAG (A)str 2 = YAG (B)Print "str1 ="; str1; "str2 ="; str2 End Sub Function YAG(a()
[单选题]单击命令按钮执行下列程序,其输出结果是( )。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
[试题]下面运行程序后,单击命令按钮,输出的结果是 [ ] 。Private Sub Command1_Click()D.im a%(1 To 5),i%, s#F.or i=1 To 5a(i)=iNexts=Fun(a)Print "s="; s;E.nd SubF.unction Fun(a() As Integer)D.im t#, i%t=1F.or i=LBound(a) To UBound(a)t=t a(i)NextF.un=tE.nd Function
[单选题]以下程序运行后,单击命令按钮,窗体显示的结果是 ______。 Private Function p1(x As Integer,y As Integel,z As Integer) p1=2*x+y+3*z End Function Private Function p2(x As Integer,y As Integer,z As Integer) p2=p1(2,y,x)+x End Function Private SubCommandl_Click() Dim a As Integer