首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程: Private Sub Command1_Click() Dim S1 As String S1="ABCDEF" Text1.Text=L
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程: Private Sub Command1_Click() Dim S1 As String S1="ABCDEF" Text1.Text=L
admin
2020-07-22
41
问题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程:
Private Sub Command1_Click()
Dim S1 As String
S1="ABCDEF"
Text1.Text=LCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,文本框中显示的是( )。
选项
A、ABCDEF
B、abcdef
C、defdef
D、defabc
答案
C
解析
程序中过程Fun的Do循环的功能是从参数字符串中依次取出后半部分的字符组成一个字符串,然后这个字符串再重复一次由函数返回。函数Len用于返回字符串的长度,过程中字符串的长度做为Do循环的结束条件。Mid是字符串中部截取函数,用来从指定位置开始截取指定个数的字符。过程中使用Mid(xStr, i+1, 1),通过循环依次取出字符串后半部分的字符。函数返回的字符串经Lcase函数转换为小写然后显示在文本框中。程序中做为Fun过程参数的字符串为"ABCDEF",经处理返回并转为小写后为"defdef"。
转载请注明原文地址:https://kaotiyun.com/show/OuHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要使菜单项MenuOne在程序运行时失效,应使用的语句是()。
在考生目录下有一个工程文件sit5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Text1和Text2。其中Text1用来输入口令(输入时,显示“*”),无初始内容;Text
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:PrivateSubCommand1_Click() Open"out.txt"ForOutputAs#2 Print"Text1" Close
执行下列语句:strInput=InputBox("请输入字符串","字符串对话框","字符串")将显示输入对话框。此时如果直接单击"确定"按钮,则变量strInput的内容是( )。
如果要在语句:a=Array(1,2,3,4,5)的前面声明变量a,则正确的声明是
按照“后进先出”原则组织数据的数据结构是
在名称为Forml、标题为”标签”的窗体上,画一个名称为Labell并可自动调整大小的标签,其标题为”计算机等级考试”,字体大小为三号字;再画两个命令按钮,标题分别是”宋体”和”黑体”,名称分别为Commandl、Command2。如图2-72所示。要求
算法的时间复杂度是指
算法的空间复杂度是指()。
检查软件产品是否符合需求定义的过程称为()。
随机试题
信誉第一
共济运动失调时可出现()
影像与实物不相似,称为
A.直接扩张血管B.阻断α1受体C.阻断钙通道D.促进K+外流E.NO供体,通过释放NO发挥作用硝普钠松弛血管平滑肌的作用机制是
某企业转让一项专利权,与此有关的资料如下:该专利权的账面余额50万元,已摊销20万元,计提资产减值准备5万元,取得转让价款28万元,应交营业税1.4万元。假设不考虑其他因素,该企业应确认的转让无形资产净收益为()万元。
黄河公司以其房屋作抵押,先后向甲银行借款100万元,乙银行借款300万元,丙银行借款500万元,并依次办理了抵押登记。后丙银行与甲银行商定交换各自抵押权的顺位,并办理了变更登记,但乙银行并不知情。因黄河公司无力偿还三家银行的到期债务,银行拍卖其房屋,仅得价
使用任务管理器可以终止程序和进程。()
Whatisthelatestproblemfacingpeoplewhodrivetoschool?
Whatjobdidthemangetfirst?Hegotthefirstjobas______.
ThepassagedepictsthedifficultyofstemcellresearchinSouthKorea.DoctorRohclaimedthatmostofthestemcelllinescr
最新回复
(
0
)