Private Sub Command1_Click()
D.im aS,b$,c$,k%
a=”ABCD”
b=”123456”
c=””
k=1
D.o While k<=Len(a) Or k<=Len(b)
If k<=Len(a)Then
c=c&Mid(a,k,1)
E.nd If
If k<=Len(b)Then
c=c&Mid(a,k,1)
E.nd If
k=k+1
Loop
Print c
E.nd Sub
运行程序,单击命令按钮,输出结果是( )。
A.123456ABCD
B.ABCDl23456
C.D6C584A321
D.A182C3D456