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

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

admin2017-07-28  12
问题 窗体上有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、beais
D、cbias
答案A
解析 过程pick_str的功能是对输入的字符串的字符重新组合，通过Do循环从原字符串中头尾开始各取一个字符重新组合，循环次数小于等于原字符串长度整除2的值。当输入字符串是“basic”时，字符串长度为5，循环次数为5／2=2次，因此取出的字符依次是“b”，“c”，“a”，“i”。即“bcai”，因此答案为A。
转载请注明原文地址:https://jikaoti.com/ti/Sfy0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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