窗体上有1个名称为Commandl的命令按钮,事件过程及函数过程如F: Private Sub Command 1一Click() Dim m As String m=InputBox(“请输入字符串”)

admin2020-07-22  33

问题 窗体上有1个名称为Commandl的命令按钮,事件过程及函数过程如F:
    Private Sub Command 1一Click()
           Dim m As String
           m=InputBox(“请输入字符串”)
           Prinl pick_str(m)
    End Sub
    Private Function pick_str(s As String)As String
           temp=“”
           i=l
          slen=Len(S)
          Do While i<=sLen/2
             temp=temp+Mid(s,i,l)+Mid(s,sIen-i+I,1)
             i=i+1
         Loop
         pick_str=temp
    End Function
    运行程序,单击命令按钮,并在输入对话框中输入“basic”,则在窗体上显示的内容为(     )。

选项 A、bcai
B、cbia
C、bcais
D、cbias

答案A

解析 过程pick_str的功能魁对输入的字符串的字符重新组合,通过Do循环从原字符串中头尾开始各取一个字符重新组合,循环次数小于等于原字符串长度整除2的值。当输入字符串是“basic”时,字符串长度为5,循环次数为5/2=2次,因此取出的字符依次是“b”,“c”,“a”,“i”。即“bcai”,因此答案为A。
转载请注明原文地址:https://jikaoti.com/ti/knS0FFFM
0

最新回复(0)