首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有2个文本框Text1和Text2,并有下面的事件过程: Dim n Private Sub Text 1 KeyPress(KeyAscii As Integer) Ift.A”
设窗体上有2个文本框Text1和Text2,并有下面的事件过程: Dim n Private Sub Text 1 KeyPress(KeyAscii As Integer) Ift.A”
admin
2015-11-24
68
问题
设窗体上有2个文本框Text1和Text2,并有下面的事件过程:
Dim n
Private Sub Text 1 KeyPress(KeyAscii As Integer)
Ift.A”<=Chr(KeyAscii)And Chr(KeyAscii)<=“Z”Then
n=n+1
End If
IfKeyAscii=13 Then Text2.Text=n
End Sub
程序运行时,在文本框Text1中输入“Visual Basic 6.0”并按回车键后,在文本框Text2中显示的是
选项
A、2
B、9
C、13
D、16
答案
A
解析
KIeyPrcss(KreyAscii As Integer)事件是在对象具有焦点时,按下键盘上的键触发的,KeyPress(KeyAscii As Integer)事件中KeyAscii参数是所按键的ASCⅡ代码,该参数不显示键盘的物理状态,而只是传递一个字符代码。KeyPress将每个字符的大、小写形式作为不同的键代码解释,即作为两种不同的字符。在本题中n的值是文本框中大写字母的个数。
转载请注明原文地址:https://kaotiyun.com/show/rxLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为a=3:b=1Fori=1To3f=a+b:a=b:b=fPrintfNextI
下列这个Sub过程的功能是统计字符串中“a”的个数,请在空白处填上合适的代码,将程序补充完整。PrivateSubnumCoun()DimnumAsIntegers$="softwareAndhardware"num=Len(s$)
鼠标移动经过控件时,将触发控件的______事件。
在面向对象程序设计中,从外面看只能看到对象的外部特征,而不知道也无需知道数据的具体结构以及实现操作的算法,这称为对象的______。
在窗体上画4个文本框,并用这4个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写下列事件过程:PrivateSubCommand1_Click()ForEachTextBoxInText1Text1(i
在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:OptionBase1PdvateSubCommand1_Click()DimcAsInteger,dAsIntegerd=0c=6X=Array(2,4,6
下列程序的输出图形是()。Fork=0To360cr=Int(160*RnD)ang=-3.1415926/180*kCircle(2000,2000),500,cr,0,angNext
在窗体上画一个文本框,名称为Text1,画一个命令按钮,名称为Command1。程序运行时,单击命令按钮,能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。请在空格处填上适当的内容,将程序补充完整。PrivateSubCo
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。PrivateTypeAngKAsInteger
随机试题
设备报废的条件有哪些?
储量计算的方法有容积法、单元体积法、物质平衡法、压降法、产量递减曲线法、驱替特征曲线法、统计对比法和利用蒙特卡洛模拟法。()
关于急性普通型肝炎的描述,正确的是
诊断为可以采用的治疗药物是
在工程项目管理组织结构中,直接调动和安排项目活动、组织落实项目计划的阶层是()。
质量管理体系的八项原则不包括( )。
出口到美国的纺织品所采用的纺织品出口许可证中M.I.D.的含义是()。
甲从乙处购买一批医疗设备,在货物运输途中,甲又与丙签订合同将该批设备转卖给丙,随后由于不可抗力导致该批设备损毁。对此,下列说法正确的是()
计算并填写下表。
Readthetextbelowaboutjobadvertisement.Inmostofthelines41-52thereisoneextraword.Itiseithergrammaticallyinc
最新回复
(
0
)