单选题 窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下：
Private Sub Command1_Click()
Dim m As String
m=InputBox("请输入字符串")
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”，则在窗体上显示的内容为