问题
单项选择题
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a$,b$,c$,k%
a="ABCD"
b="123456"
c=" "
k=1
Do White k＜=Len(a)Or k＜=Len(b)
If k＜=Len(a) Then
c=c＆Mid(a,k,1)
End If
If k＜=Len(b) Then
c=c&Mid(a,k,1)
End If
k=k+1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是( )
A．123456ABCD
B．ABCD123456
C．D6C584A321
D．A182C3D456
答案
参考答案：D
解析： Mid函数用于提取字符串中的指定位数，函数调用格式为Mid(string,start[,length]),其中start为必要参数。为Long型，为被取出部分的首字符的位置。如果start超过string的字符数，Mid返回空串。length可选参数为返回的字符数，如果省略或length超过文本的字符数，将返回字符串中从start到尾端的所有字符。Len函数的作用是返回串的长度。本题中a串长4，b串长6，每次循环将a、b的第k个字符取出连在一起给串c，k从1开始，当k=5时，将b中k位置的字符依次插入串c中。