在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim aS,b$,c$,k% a=”ABCD” b=”123456” c=”” k=1 Do While 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 运行程序,单击命令按钮,输出结果是( )。 D.A182C3D456
A.123456ABCD B.ABCDl23456 C.D6C584A321
【参考答案】
D 解析:Mid函数用于提取字符串中的指定位数,函数调用格式为Mid(string,start[,length]......