下列程序运行后，单击命令按钮，窗体显示的结果为( )。 Private Function pl(x As Integer,y As Integer,z As Integer) pl=2*x+y+3*z End Function Private Function p2(X As Integer,y As Integer,z As Integer) p2=p1(z,y,x)+x End Function Private Sub Commandl_Click()

A．23

B．19

C．21

D．22

[单选题]以下程序运行后，单击命令按钮，窗体显示的结果是 ______。 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

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

[单选题]执行下面这段程序后，单击命令按钮，窗体中输出结果是 ______。 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() 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="; s2 End Sub Function Fa

[单选题]执行下面的程序，单击命令按钮后，窗体中的输出结果是 ______。 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%(3 To 6),i%,s1#,s2#F．or i=1 To 4a(i)=iNext iF．or i=3 To 6b(i)=iNext is1=Factorial(A)s2=Factorial(B)Print"s1=";s1;"s2=";s2E．nd SubF．unction Factorial(a() As Integer)D．im t#

[单选题]单击命令按钮时,下列程序的运行结果为Private Sub Command1_Click()Print Fun(23, 18)E．nd SubPublic Function Fun(m As Integer, n As Integer) As IntegerD．o While m <> nD．o While m > n: m=m - n: LoopD．o While m < n: n=n - m: LoopLoopF．un=mE．nd FunctionA．0B．1C．3D

[单选题]单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() Print MyFund(20，18) End Sub Public Function MyFund(m As Integer，n As Integer)As Integer Do While m＜＞n Do While m＞n：m=m-n：Loop Do While m＜n：n=n-m：Loop Loop MyFund=m End FunctionA．0B．2C．4D．6

[单选题]（14）有下列程序，程序运行后单击命令按钮，则输出的结果是 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"；s2； End Sub Function Factorial(a()As Integer)

[单选题]单击命令按钮时，下列程序的运行结果为Private Sub Command1_Click()Print Fun(23，18)E．nd SubPublic Function Fun(m As Integer，n As Integer) As IntegerD．O While m＜＞nD．O While m＞n:m=m-n:LoopD．O While m＜n:n=n-m:LoopLoopF．un=mE．nd FunctionA．0B．1C．3D．5