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

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

admin2017-06-21  54
问题 窗体上有1个名称为Commandl的命令按钮，事件过程及函数过程如下：
Private Sub Commandl _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
解析 本题的函数中使用了Do循环，循环条件是i＜=sLen／2；由十字符串的长度为5，所以循环会执行两次；在每次循环中使用Mid函数依次取得字符串的第一个字符、最后一个字符、第二个字符、倒数第二个字符。
转载请注明原文地址:https://kaotiyun.com/show/TPGp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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