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

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

admin2015-08-28  55
问题 窗体上有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/CoLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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