首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码: Private Sub Text l_KeyPress(KeyAscii As Integer) If"A"
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码: Private Sub Text l_KeyPress(KeyAscii As Integer) If"A"
admin
2020-01-02
45
问题
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码:
Private Sub Text l_KeyPress(KeyAscii As Integer)
If"A"<=Chr(KeyAscii)And Chr(KeyAscii)<="Z"Then
KeyAscii=KeyAscii+(Asc("a")-Asc("A"))
End If
n=0
IfKeyAscii=13 Then
For k=1 To Len(Text1)
ch$=Mid(Text1,k,1)
If"a"<=ch And ch<="Z"Then n=n+1
Next k
Text2=n
End If
End Sub
程序运行时,在Text1文本框中输入“Visual Basic 6.0”后按回车键,则在Text2文本框显示的是
选项
A、11
B、16
C、Visual Basic 6.0
D、visual basic 6.0
答案
A
解析
本题中的第一个If…Then结构的作用是将所有输入的大写字符转换为小写字符;第二个If结构的条件是按下回车键,里面嵌套了一个For循环,在循环中依次取出文本框中的每一个字符进行判断,若其为小写字符则n自加1,循环结束后n的值就是文本框中字母的个数。
转载请注明原文地址:https://kaotiyun.com/show/TETp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下叙述中错误的是()。
要想使列表框只允许单选列表项,应设置的属性为()。
要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目,则应把该列表框的MultiSelect属性设置为()。
下列程序的功能是调用字体对话框来设置文本框中的字体,单击Command1按钮弹出对话框,进行相应的字体、字号等的设置,然后单击“确定”按钮退出对话框,则文本框中将发生哪些变化()。PrivateSubCommand1_Click()
在窗体上画1个命令按钮,名称为Command1,然后编写如下程序:DimFlagAsBooleanPrivateSubCommand1_Click()DimintNumAsIntegerintNum=
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommand1_Click()Dimn
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的100个正整数读入数组a中。②单击“计算”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另一个整数的平方
如下关于变体类型变量的叙述中,错误的是
软件测试用例包括()。
在关系数据库中,用来表示实体间联系的是
随机试题
扮演角色的方法是依据心理剧理论派生的,它是利用______和______创造情景,以启发学员对自己及他人行为、信念、价值的认识。
女,45岁。发热、咳脓痰1周,胸片示右下背段浸润阴影。用青霉素治疗体温稍下降,但痰量增多,为脓血痰,有臭味。胸片示大片浸润阴影中出现空腔。治疗中需加用
麝香与冰片功效的共同点有
患者男性,52岁,自觉腰腹部胀痛,乏力,高血压。超声所见:双肾增大,形态失常,被膜凹凸不平,肾实质基本消失,为大小不等类圆形囊腔占据,肾窦受压变形。本病应诊断为
患者,女性,31岁,患无排卵性功血,经来无期,经量或多或少,色淡质稀,畏寒肢冷,腰腿酸软,舌淡苔薄白,脉沉细。治疗宜用
工程量清单是招标文件的组成部分,其组成不包括()。
关于施工企业法人与项目经理部法律关系的说法,正确的是()。
直观性教学要求教师堂堂不空手。()
个人所得税的纳税人是指在中国境内有住所,或者无住所而在境内居住满一年,从中国境内和境外取得所得的个人;在中国境内无住所又不居住或者无住所而在境内居住不满一年,从中国境内取得所得的个人。根据上述定义。下列不属于中国个人所得税的纳税人的是( )。
在数据库中,产生数据不一致的根本原因是()。A)数据存储量过大B)缺乏数据保护机制C)数据冗余D)缺乏数据安全性控制
最新回复
(
0
)