窗体上有 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”， 则在窗体上显示的内容为
过程 pick_str 的功能是对输入的字符串的字符重新组合， 通过 Do 循环从原字符串中头尾开始各取一个字符重新组合， 循环次数小于等于原字符串长度整除 2 的值。 当输入字符串是“basic” 时， 字符串长度为 5， 循环次数为 5／ 2=2 次， 因此取出的字符依次是“b”， “c”， “a”， “i”。 即“bcai”， 因此答案为 A。