单击命令按钮时,下列程序代码的执行结果为( )。 Private Function PickMid(xStr As String)As Sting Dim tempStr As String Dim strLen As Intege

admin2012-03-22  65

问题 单击命令按钮时,下列程序代码的执行结果为(    )。    Private Function PickMid(xStr As String)As Sting    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)+Mid(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

答案B

解析
转载请注明原文地址:https://jikaoti.com/ti/XmO0FFFM
0

最新回复(0)