首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有一个文本框Text1和一个命令按钮Command1,并有以下事件过程: Private Sub Command1_Click() Dim s As String,eh As String S="" For k=1 To
设窗体上有一个文本框Text1和一个命令按钮Command1,并有以下事件过程: Private Sub Command1_Click() Dim s As String,eh As String S="" For k=1 To
admin
2016-08-24
47
问题
设窗体上有一个文本框Text1和一个命令按钮Command1,并有以下事件过程:
Private Sub Command1_Click()
Dim s As String,eh As String
S=""
For k=1 To Len(Text1)
ch=Mid(Text1,k,1)
s=ch+s
Next k
Text1.Text=s
End Sub
程序执行时,在文本框中输入“Basic”,然后单击命令按钮,则Text1中显示的是( )。
选项
A、Basic
B、cisaB
C、BASIC
D、CISAB
答案
B
解析
Len函数返回字符串的长度,Mid函数为字符串中部截取函数格式为:Mid(字符串,起始位置,长度)。程序中,For循环的终值是Text1中输入的字符串的长度,即“Basic的长度,为5。循环体中Mid函数从第一个字符开始依次取出一个字符,然后与上次取出的字符连接,本次取出的字符在前,上次取出的字符在后。最终变量s中应该是“cisaB”。
转载请注明原文地址:https://www.kaotiyun.com/show/jYLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当窗体大小改变时,要使其中的控件也按比例发生变化,应使用窗体的()。
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubForm
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Crick()DimIAsInteger,nAsIntegerForj=0T
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下而的程序。首先在窗体层定义如下变量:DimPaintStartAsBoolean编写如下事件过程:PrivateSubF
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger a=3:b=4:c=5 PrintSec
在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为M1。设窗体Form1标题为“myform1”,双击控件数组中的第3个按钮,打开代码编辑器,写下如下代码:PrivaeSubM1_Click(IndexAsInteger)F
有时候需要暂时关闭计时器,这可以通过______属性来实现。
下列叙述不正确的是()。
表达式(7\3+1)*(18\-1)的值是______。
可以用InputBox函数产生“输入对话框”。若执行下列语句st$=InputBox("请输入字符串","字符串对话框","字符串")当用户输入完毕,按“确定”按钮后,st$变量的内容是()。
随机试题
法人作品的著作财产权保护期为()
A.菌核B.子实体C.地衣体D.藻体E.子座灵芝药材的药用部位是
患者,女,60岁。5年前患乳腺癌手术治疗,术后化疗半年余。半年前发现在左锁骨上淋巴结肿大,无压痛,逐渐增多增大。2个月来出现胸憋、气短而就诊,化验检查:血红蛋白109g/L,白细胞6×109/L,血沉40mm/第1小时末,X线胸片示右肺肿块阴影,心影向两侧
A.仔猪大肠杆菌病B.仔猪沙门氏菌病C.仔猪梭菌性肠炎D.猪传染性胃肠炎E.伪狂犬病某猪场部分断奶仔猪咳嗽、有时呕吐,有的仔猪共济失调、间歇发生四肢痉挛,有的猪顽固性腹泻。病猪脑组织接种家兔,家兔出现奇痒死亡。该病可能是
可撤销的信用证一旦寄达受益人以后,在其有效期内,非经开证人、开证行、保兑行或受益人等有关方面的同意,不得将该信用证的条款进行修改或撤销。一般情况下,信用证上只要未注明“不可撤销”,则视为可撤销信用证。( )
下列说法错误的是()
依据《中华人民共和国合同法》,下列选项中,属于合同的权利义务终止的情形有()。
导游服务集体中的上线工作人员包括()。
被刘海粟赞为“登刺绣艺术之高峰”的是()。
I"msureyoucan________(find)whatyouwantinourshop.
最新回复
(
0
)