首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有2个文本框Text1和Text2,并有下面的事件过程: Dim n Private Sub Text1_KeyPress(KeyAscii As Integer) If"A"
设窗体上有2个文本框Text1和Text2,并有下面的事件过程: Dim n Private Sub Text1_KeyPress(KeyAscii As Integer) If"A"
admin
2019-04-29
34
问题
设窗体上有2个文本框Text1和Text2,并有下面的事件过程:
Dim n
Private Sub Text1_KeyPress(KeyAscii As Integer)
If"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
解析
KeyPress(KeyAscii As Integer)事件是在对象具有焦点时,按下键盘上的键触发的,KeyPress(KeyAscii As Integer)事件中KeyAscii参数是所按键的ASCII代码,该参数不显示键盘的物理状态,而只是传递一个字符代码。KeyPress将每个字符的大、小写形式作为不同的键代码解释,即作为两种不同的字符。在本题中n的值是文本框中大写字母的个数。
转载请注明原文地址:https://kaotiyun.com/show/f1Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有如下情况语句:SelectCaseX能表示|X|>5的Case子句是
要使标签中的文本靠右显示,应将其Aligment属性设置为
为了使文本框同时具有垂直和水平滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为
在窗体上画一个文本框,名称为Text1,然后编写如下程序:PrivateSubFormLoad()PrivateSubFormClick()Textl.Text:"":Text1.SetFocusDimaAsString.SAs
现有如下程序:PrivateSubCommandl.Click()s=0Fori=1To5S=s+1j[5+i)NextPrintsEndSubPublicFunctionf(xAsInteger)Ifx>=10
以下关于过程的叙述中,错误的是
有数据定义语句:Dima,bAsIntegerDimx%,yasInteger执行语句后,不是整型变量的是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1、标题为“鼠标光标形状示例”的窗体上画1个名称为Text1的文本框。清通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框中时,鼠标光标为箭头(Arrow
在考生文件夹下有一个工程文件sjt4.vbp。在其窗体中“待选城市”下的List1列表框中有若干个城市名称。程序运行时,选中List1中若干个列表项,如图3-138(a)所示,单击“选中”按钮则把选中的项目移到List2中;单击“显示”按钮,则在Text1
随机试题
某公司2017年计划对一套设备进行更新。甲、乙、丙三个厂家可以提供性能接近,价格相当的该种设备。公司在选购设备时,需要从生产性(能力)、安全性、经济性、环保性四个方面对设备进行综合评价。公司将各项评价因素的权重分别设定为0.4、0.3、0.2、0.1,并请
资本主义时期外国行政组织的特点。
高血压病并发脑出血的常见部位是( )
计算机病毒的产生是一种人为因素造成的。()
根据东莞可园所处的地理位置,它属于()。
方形木块叫斗,弓形短木叫棋,斜置长木叫昂,总称斗棋,斗棋是支撑构件,它的层数与支撑物有关,与等级无关。()
A、0B、1C、1/2D、1/3D原数列中分子都为1,各项的分母分别为1,(),7,13,21,由于各项之间相差的较少所以考虑是等差或者等比数列,观察后三项,相减以后为6,8,则推测前一项为4,将其带入得到分母组成的数列为1,3,7,13,21
函数f(x)=ex+e-x在区间(-1,1)内[].
规范化理论是关系数据库进行逻辑设计的理论依据。根据这个理论,关系数据库的关系必须满足:其中每一属性都是
Wearetryingtoimproveeducationtoday______ourchildrencanmeetthechallengesoftomorrow.
最新回复
(
0
)