单项选择题

窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下:
Private Sub Command1_Click()
Dim m As String
m = InputSox( "请输入字符串" )
Print pick_str(m)
End Sub
Private Function pick_str(s As String)As String
temp = " "
i=1
sLen = Len (s)
Do While i < = sLen / 2
temp=temp +Mid(s, i, 1)+Mid(s, sLen-i+1, 1)
i=i+1
Loop
pick_str = temp
End Function
运行程序,单击命令按钮,并在输入对话框中输入“basic”,则在窗体上显示的内容为( )。

A) bcai
B) cbia
C) bcais D) cbias