下列程序代码段中，在单击命令按钮调用SelMid函数时，其运行结果为( )。
Private Function SelMid(aStr As String)As String
Dim temp As String
Dim sLen As Integer
temp=""
sLen=Len(aStr)
i=1
Do While i＜=sLen/2
temp=temp+Mid(aStr,i,1)+Mid(aStr,sLen-i+1,1)
i=i+1
Loop
SelMid=temp
End Function
Private Sub Command1_Click（　）
Dim Str As String
Str="abcdef":Print SelMid(Str)
End Sub

A:abcdef afbecd fedcba defabe

下面程序的输出结果是( )。
Private Sub Command1_Click（　）
ch$="ABCDEF"
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
s=""
For k=Len(ch)To 1 Step-1
s=s & Mid(ch,k,1)
Next k
ch=s
End Sub

A:ABCDEF FEDCBA A F

单击命令按钮时，下列程序代码的执行结果为______。
Private Function PickMid(xStr As String) As String
Dim tempStr As String
Dim strLen As Integer
tempStr=“”
strLen=Len(xStr)
i=1
Do While i＜=strLen/2
tempStr=tempStr+Mid(xStr，i，1)+Hid(xStr，strLen-i+1，1)
i=i + 1
Loop
PickMid=tempStr
End Function

Private Sub Command1_Click（　）
Dim FirstStr As String
FirstStr=“abcdef”
Print PickMid(FirstStr)
End Sub

A:abcdef B:afbecd C:fedcba D:defabc

下列程序的执行结果为
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(xstr，i，1)
i=i - 1
Loop
ystr=tempstr
End Sub

A:fedcba B:abcdef C:afbecd D:defabc

下列程序的执行结果为( )。 Ptivate Sub Command_Click（　） DimFirStr As String FirStr="abcdef" PrintPat(FirSb) End Sub PrivateFunctionPat(xStr As String)As String DimtempStr As String，strLen As Integer tempStr="" strLen=Len(xStr) i=1 DoWhile i＜=Len(xStr)-3 tempStr=tempSlx+Mid(xStr，i，1)+Mid(xStr，strLen-i+1，1) i=i+1 Loop Pat=tempStr End Function

A:abcdef B:afbecd C:fedcba D:defabc

当窗体中的内容太多无法放在一页中全部显示时，可以用下列哪个控件来分页

A:abcdef B:afbecd C:fedcba D:defabc

单击窗体时，下列程序的执行结果是( )。 　　Private Sub Invert(By Val xstr As String，ystr As String) 　　　　Dim tempstr AS String 　　　　Dim I AS Integer 　　　　I=Len(xstr) 　　　　Do While I＞=1 　　　　　tempstr=tempstr + Mid(xstr，I，1) 　　　　　I=I - 1 　　　　Loop 　　　　yStr=tempStr 　　End Sub 　　Private Sub Form_Click( ) 　　　　Dim s1 As String，s2 As String 　　　　S1="abcdef" 　　　　Invert S1，S2 　　　　Print S2 　　End Sub

A:abcdef B:afbecd C:fedcba D:defabc

在OutputStream类的常用方法中哪个是清空输出流的方法

A:fedcba B:abcdef C:afbecd D:defabc

下列程序的执行结果为( )。 　　Ptivate Sub Commandl_Click（　） 　　　　Dim FirStr As String 　　　　FirStr="abcdef" 　　　　Print Pct (FirStr) 　　End Sub 　　Private Function Pct(xStr As String)As String 　　　　Dim tempStr As String,strLen As Integer 　　　　tempStr="" 　　　　strLen=Len(xStr) 　　　　i=1 　　　　Do While i＜=Len(xStr)-3 　　　　　　tempStr=tempStr + Mid(xStr，i，l) + Mid(xStr，strLen - i+i ，1) 　　　　　　i=i + 1 　　　　Loop 　　　　Pct=tempStr 　　End FunCtion

A:abcdef B:afbecd C:fedcba D:defabc