下列程序的执行结果为 Private Sub Command1_C1ick( ) Dim sl As String，s2 AS String s1="abcdef" Call lnvert(s1，s2) Print s2 End Sub Private Sub lnvert(ByVal xstr As String，ystr As String) Dim tempstr As Stdng i=Len(xstr) Do While i＞=1 tempstr=tempstr+Mid(xstr，i，1) i=i-1 Loop ystr=tempstr End Sub

A．fedcba

B．abcdef

C．afbecd

D．defabc

[单选题]当发生Command1_C1ick事件后，以下程序的输出结果是 Private Sub Command1_Click() Dim i As Integer Dim a(10) As Integer For i＝9 To 0 Step -1 a(i)=10-i Next i Print a(2);a(5);a(8) End SubA．2 5 8B．7 4 1C．8 5 2D．3 6 9

[单选题]下列程序的执行结果为______。Private sub Command1_ Click ( ) a = 100 b = 50 if a ＜＞ b then a = a + b Else b = b -a Print a, bEnd SubA．50 50B．150 50C．200 200D．10 10

[单选题]下列程序的执行结果为( )。 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 Command1_ Click() Dim s As Long Dim x As Integer s = 0 for x = 99 To 1 step - 2 s=s+ x Next x Print sEnd SubA．100B．500C．2500D．5000

[单选题]单击命令按钮时，下列程序的执行结果为 Private Sub Command1_click() Dim X As Integer，Y As Integer x=12:y=32 Call PCS(x,y) Print x；y End Sub Public Sub PCS(ByVal n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End SubA．12 32B．2 32C．2 3D．12 3