2. 计算机
  3. 窗体上有1个名称为Command1的命令按钮，事件过程及函数过程如下： Private Sub Command1_Click() Dim m As String m=InputBox("请输入字符串")

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

admin2015-08-13  34
问题 窗体上有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://jikaoti.com/ti/J460FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)