首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框Text1,并编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim ch As String ch = UCase(Chr(KeyAscii)) If
在窗体上画一个文本框Text1,并编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim ch As String ch = UCase(Chr(KeyAscii)) If
admin
2018-09-19
35
问题
在窗体上画一个文本框Text1,并编写如下事件过程:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = UCase(Chr(KeyAscii))
If Not (ch >= "A" And ch <= "Z") Then
_____________________
End If
End Sub
要求当程序运行时,在文本框Text1中只能输入字母,无法输入其它字符,则在横线处应填入的语句是
选项
A、Text1.Text=""
B、KeyAscii = 0
C、ch=""
D、Text1.Text=Text1.Text & ch
答案
B
解析
当按下某个键,所触发的是拥有输入焦点的那个控件的KeyPress事件。其中"KeyAscii"是一个预定义变量,执行KeyPress过程时,该变量是指所按键的ASCII码。类型转换函数Chr(n):把n转换成相应的字符,其中表达式n的值是合法的ASCII码值。字符串大写转换函数Ucase(s)将字符串s中的小写字母转换成大写字母。Ucase(Chr(KeyAscii))是先将输入的ASCII码转换成字符再将其转换成大写字母。If Not (ch>="A" And ch<="Z") Then ……End If;判断当所输入字母不是字母时执行的操作该如何做。Text1.Text="",将Text1文本框的内容设置为空。ch=""将空赋值给字符串变量ch,空格的ASCII码值为32。故正确答案为B选项。
转载请注明原文地址:https://kaotiyun.com/show/V2Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如下关于变体类型变量的叙述中,错误的是( )。
(1)在考生文件夹下有一个工程文件Bjt3.vbp,窗体上有两个名称分别为List1、List2的列表框,在List2中已经预设了内容;两个名称分别为C1、C2的命令按钮,标题分别为“添加”、“清除”,如图所示。程序的功能是在运行时,如果选中右边列表框中的
有下面的程序段:Fori=14To5Step-3PrintNexti执行此程序段后,i的值为
假定把计时器控件Timer1的Interval属性设置为1000,Enabled属性设置为True,并编写下面的事件过程:PrivateSubTimer1_Timer()DimxAsIntegerFori=1To
以下不合法的VisualBasic变量名是
在关系数据库中,用来表示实体间联系的是
下面属于白盒测试方法的是
下面不能作为结构化方法软件需求分析工具的是
设a=2,b=3,c=4,d=5,下列表达式的值是( )。 a>bAndcc
支持子程序调用的数据结构是( )。
随机试题
下列关系中的各方构成关联方的是【】
Oneoftheadvantagesoftakingnotesisthatitforcesyoutopaycloserattentiontotheclasslecture.Ifyoulisten【36】toa
消化道穿孔的临床特点中不包括哪一项
对旋转阳极X线管管套的叙述,错误的是
以下关于局部排风罩的说法中不正确的是()。
某工程项目发包人与承包人签订了施工合同,承包人与分包人签订了专业工程分包合同,在分包合同履行过程中,分包人的正确做法是()。
B注册会计师负责对乙公司20×4年度财务报表进行审计。B注册会计师出具审计报告的日期为20×5年3月15日,财务报表报出日为20×5年3月20日。在审计过程中,B注册会计师遇到下列事项,请代为作出正确的专业判断。B注册会计师了解到的下列资产负债表日后事
智力技能
[A]Somearchaeologicalsiteshavealwaysbeeneasilyobservable—forexample,theParthenoninAthens,Greece,thepyramidsofG
Whowillspeakatthemeeting?
最新回复
(
0
)