首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,名称为Text1,然后编写如下程序: Private Sub Form_Load() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_Click()
在窗体上画一个文本框,名称为Text1,然后编写如下程序: Private Sub Form_Load() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_Click()
admin
2019-03-14
48
问题
在窗体上画一个文本框,名称为Text1,然后编写如下程序:
Private Sub Form_Load()
Show
Text1.Text=""
Text1.SetFocus
End Sub
Private Sub Form_Click()
Dim a As String, s As String
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函数从输入字符串左边开始逐一取一个字符转换为大写,并连接到上次取出的字符的前面,因此文本框中显示的将是原输入字符串转换为大写的并倒序排列的字符串。所以C正确。
转载请注明原文地址:https://kaotiyun.com/show/moUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Commandl的命令按钮,编写如下事件过程:PrivateSubCommandl_Click()n=0Fori=0To10X=2*i一1IfXMod3=0Thenn=n+1NextiPrintnE
编写如下程序:OptionBase1PrivateSubCommand1Click()Dimaa=Array(1,2,3,4):s=0:j=1Fori=4To1Step—1s=s+a(i)*j:j=j*10NextiP
文件d:\city.txt的内容如下:BeiJingTianJinShangHaiChongQing编写如下事件过程:PrivateSubFormClick()DimInDOpen“d:\city.txt”ForInputAs
命令按钮Commandl的MouseUp事件过程结构如下:PrivateSubCommandlMouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)******
下列选项中属于面向对象设计方法主要特征的是
设窗体文件中有下面的事件过程:PrivateSubCommand1——ClickODimsa%=100PrintaEndSub其中变量a和s的数据类型分别是
在关系模型中,每一个二维表称为一个
在E-R图中,用来表示实体联系的图形是
为了使一个复选框被禁用(灰色显示),应把它的Value属性设置为
在关系数据库中,用来表示实体间联系的是
随机试题
______Ifixedtheplugproperly,Istillgotanelectricshock.
那还是几年前的一个早晨,在太阳刚刚升起来的时候,踏着熹微的晨光,到一个离旅馆不远的菜市场去。到了邻近菜市场的地方,市场的气氛就逐渐浓了起来。熙熙攘攘的人群,摩肩擦背,来往往。许多老大娘的菜篮子里装满了蔬菜海味鸡鸭鱼肉。有的篮子里活鱼在摇摆着尾巴,肥鸡在咯咯
电子支付中最常用的工具是
患者,女性,50岁。生育情况:足月顺产1胎,孕8个月顺产双胎,均健在。自然流产1次,人工流产2次。其生育史的英文书写应为
长期使用利尿药的降压机制是()
左心衰竭病人的呼吸困难主要是由于
修改后的立法法关于授权设区的市地方立法权,规范授权立法,明确税收法定原则等亮点引发关注。由此可见,立法法的修改有利于()。
在表单中,有关列表框和组合框内选项的多重选择,正确的叙述是()。
如果套期保值者在期货和现货两个市场的盈亏不是完全冲抵的,这种套期保值被称为不完全套期保值或非理想套期保值。()
Sincewearesocialbeings,thequalityofourlivesdependsinlargemeasureonourinterpersonal(人与人之间的)relationships.Onestr
最新回复
(
0
)