首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Text1,然后编写如下程序: Private Sub Form Load() Private Sub Form Click() Text1.Text="":Text1.SetFocus
在窗体上画一个文本框,名称为Text1,然后编写如下程序: Private Sub Form Load() Private Sub Form Click() Text1.Text="":Text1.SetFocus
admin
2017-04-25
85
问题
在窗体上画一个文本框,名称为Text1,然后编写如下程序:
Private Sub Form Load() Private Sub Form Click()
Text1.Text="":Text1.SetFocus Dim a As String,s As String
End Sub a=Text1.Text:s=""
For k=1 To Len(a)
s=UCase(Mid(a,k,1))+s
Next k
Text1.Text=s
End Sub
程序运行后,在文本框中输入一个字符串,然后单击窗体,则文本框中的内容
选项
A、与原字符串相同
B、与原字符串中字符顺序相同,但所有字母均转换为大写
C、为原字符串的逆序字符串,且所有字母转换为大写
D、为原字符串的逆序字符串
答案
C
解析
Mid(字符串,起始位置[个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串,UCase()函数用于将字符串中小写字母转化为大写字母,原本大写或非字母字符保持不变。本题中在循环内每次取出第k位个字符并且连接到结果字符串的前面,所以结果字符串是源字符串的逆序字符串。
转载请注明原文地址:https://kaotiyun.com/show/8GGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序运行后,输出的结果为______。B=1Dowhileb<40b=*(b+1)LoopPrintB
下列程序执行后,变量x的值为()。Dima,b,c,dAsSingleDimxAsSinglea=10b=30c=400Ifb>aThend=a:a=b:b=dEnd
要建立一个随机文件记录学生的信息,如下定义的学生记录类型,由学号、姓名和5门课程成绩(百分制)组成,下列的定义正确的是()。
有如下函数过程:FunctionFun(ByValxAsIngeger,ByValyAsInteger)AsIntegerDOWhile…y<>0reminder=xModyx=yy=reminderLoopFun
在设计程序时,应采纳的原则之一是______。
执行以下程序段,并输入1.23,则程序的输出结果应是【】。N=Str(InputBox("请输入一个实数:"))p=InStr(N,",")PrintMid(N,p)
单击命令按钮时,下列程序的运行结果为PrivateSubCommand1_Click() PrintMyFund(20,18) EndSub PublicFunctionMyFund(mAsInteger,nAsInte
下列程序段的运行结果是:PrivateSubCommand1_Click()DimnASIntegerI=21:n=3dowhileI>nI=I-nLoopPrintIEn
单击命令按钮时,下列程序代码的执行结果为______。PublicSubProcl(nAsInteger,ByValmAsInteger)n=nMod10m=m/10EndSubPrivateSubConunan
当文本框ScrollBars属性设置了非零值,却没有效果,原因是()。
随机试题
有关暴发性流行性脑脊髓膜炎的描述中,哪项是错误的:
A.陈皮B.附子C.干姜D.青皮E.花椒主理脾肺之气,力缓的药物是()
D-洋地黄毒糖是
关于疏散楼梯,下列技术措施中,哪一项是错误的?[1999—118]
已知电路如图所示,其中,电流I等于()。
包装单元商品尺寸》规定了商品流通过程中包装单元商品的尺寸标准,下列不属于此标准的有()。
软件开发离不开系统环境资源的支持,其中必要的测试数据属于
下列有关过程的叙述中错误的是()。
AreTeenagersReallyCarelessAboutOnlinePrivacy?[A]Theyshare,like,everything.Howtheyfeelaboutasong,theirmathsho
Thesedays,peoplewhodo【C1】______workoftenreceivefarmoremoneythanpeoplewhoworkinoffices.Peoplewhoworkinoffices
最新回复
(
0
)