首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
admin
2020-07-22
56
问题
窗体上有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
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
满足下列条件之一的年份是闰年:1)年份能被4整除但不能被100整除2)年份能被400整除若y代表年份,下面判断闰年的正确表达式是
设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是
用来设置文字字体是否为粗体的属性是
设有如下程序:OptionBase1Dima(3,4)AsInteger,b(4,3)AsIntegerPrivateSubCommand1_Click()’循环1Fori=1To3
下面属于白盒测试方法的是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Combol的组合框,其宽度为1200,其类型如图3—188所示(即简单组合框)。要求如下:①请按图中所示,通过属
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个名称为Combo1的组合框,其宽度为1200,其类型如图3—188所示(即简单组合框)。要求如下:①请按图中所示,通过属性窗口输入“北京
以下能对正实数d的第3位小数四舍五入的表达式是
一个工作人员可使用多台计算机,而一台计算机被多个人使用,则实体工作人员与实体计算机之间的联系是
软件测试的目的是( )。
随机试题
Shesoon______theactorwhohadstarredinthepopularmovieSpeed.
基牙牙根数目与固定义齿功能直接有关的是()
(2014年)下列铰链四杆机构中能实现急回运动的是()。
下列关于现场签证的说法,正确的是()。
我国历史上有确切纪年开始于公元前()年。
同西方文官制度相比较,我国公务员制度的特色有()。
安全的威胁可分为2大类,即主动攻击和被动攻击。通过截取以前的合法记录稍后重新加入一个连接,叫做重放攻击。为防止这种情况,可以采用的办法是(61)。
Healwaysgetsupearlyand______hisclothesquicklyinthemorning.
Foryears,pediatriciansdidn’tworrymuchabouttreatinghypertensionintheirpatients.Afterall,kidsgrowsofast,it’shardk
Universitiesaredevisinganewnationaltestforgraduatestohelpemployersselectrecruits.Themovefollows【C1】______thatd
最新回复
(
0
)