在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a$, 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(b, k, 1)
End If
k = k + 1
Loop
Print c
End Sub
运行程序,单击命令按钮,输出结果是( )。
发布于 2022-05-11 10:17:57
登录后免费查看答案
关注者
0
被浏览
15