下列程序的执行结果为 Private Sub Comrnandl_Click( ) Dim p As Integer, q As Integer p=12：q=20 Call Value(p, q) Print p; q End Sub Private Sub Value(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; n End Sub

A．20 12 20 15

B．12 20 12 25

C．24 15 12 20

D．24 12 12 15

[单选题]下列程序的执行结果为( )。 Private Sub Command1_Click() Dim s1 As String,s2 As String s1="abcdef" Call Invert(s1,s2) Print s2 End Sub Private Sub Invert(ByVal xstr As String,ystr As String) Dim tempstr As String i=Len(xstr) Do While i＞=1 tempstr=tempstr+Mid(xs

[单选题]下列程序的执行结果为Private Sub Command1_Click()D．im FirStr As StringF．irSt="abcdef"Print Pat(FirStr)E．nd SubPrivate Function Pat(xStr As String) As StringD．im tempStr As String，strLen As IntegertempStr=""strLen=Len(xStr)i=1D．o While i＜=Len(xStr)-3tempStr=

[单选题]下列程序的执行结果为Private Sub Command1_Click()D．im FirStr As StringF．irSt="abcdef"Print Pat(FirStr)E．nd SubPrivate Function Pat(xStr As String) As StringD．im tempStr As String, strLen As IntegertempStr=""strLen=Len(xStr)i=1D．o While i<=Len(xStr) -3tem

[单选题]下列程序的执行结果为 Private Sub Command1_Click() Dim FirStr As String FtrSt="abcdef" Print Pat(FirStr) End Sub Private Function Pat(xStr As String)As String Dim tempStr As String，strLen As Integer tempStr="" strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 te

[单选题]下列程序的执行结果为 Private Sub Command1_Click( ) Dim FirStr As String FirSt=”abcdef， Print Pat(FirStr) End Sub Private Function Pat(xStr As String)As String Dim TempStr As String，strLen As Integer tempStr=”” strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempS

[单选题]下列程序段的执行结果为 Private Sub Command1_Click() a=InputBox("请输入a值") c="您要查询的是" &IIf(a＞0，"天气"，" ") &IIf(a＜0，"电话号码"，" ") &IIf(a=0，"邮编"，" ") Text1.Text=c End Sub程序运行后，如果从键盘上输入"16"，则在文本框显示的内容是______。A．您要查询的是天气B．您要查询的是邮编C．您要查询的是电话号码

[单选题]下面程序的执行结果是Private Sub Commandl_Click()a=1OF．or k=l To 5 Step一1a=a--kNext kPrint a；kE．nd SubA．一5 6B．一5—5C．10 0D．10 1

[单选题]下面程序执行的结果是______。 Private Sub Form_ Click() A＄=“123”：B＄=“456” C=Val(A＄)+Val(B＄) Print C/100 End SubA． 123B．3C．5D．579

[单选题]下面程序执行的结果是( )。 Private Sub Form_Click() AS="123"：B$="456" C=Val(A$)+Val(B$) Print C/100 End SubA．123B．3C．5D．579

[单选题]下列程序的输出结果为( )。 Private Sub Command1_Click() Dim a(20) For j=1 To 20 Step2 a(j)=j Next i Print a(1)+a(2)+a(3) End SubA．4B．5C．6D．7