在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() Dim aS,b$,c$,k% a=”ABCD” b=”123456” c=””

admin2010-11-02  37

问题 在窗体上画一个命令按钮,其名称为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
    运行程序,单击命令按钮,输出结果是(    )。

选项 A、123456ABCD
B、ABCDl23456
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中。
转载请注明原文地址:https://kaotiyun.com/show/E0mp777K
0

最新回复(0)