窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下: Private Sub Command1_Click()   Dim m As String   m=InputBox("请输入字符串")   Print pick_str(m) En

admin2020-07-22  28

问题 窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下:
Private Sub Command1_Click()
  Dim m As String
  m=InputBox("请输入字符串")
  Print pick_str(m)
End Sub
Private Function pick_str(s As String)As String
  temp=""
  i=1
  sLen=Len(s)
  Do While i<=sLen / 2
    temp=temp+Mid(s, i, 1)+Mid(s, sLen-i+1, 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://kaotiyun.com/show/kcHp777K
0

最新回复(0)