首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框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
2020-01-02
40
问题
在窗体上画一个文本框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/o1Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下不能用形状控件画出的图形是
设窗体上有2个直线控件Line1和Line2,若使两条直线相连接,需满足的条件是
窗体上有一个由两个文本框组成的控件数组,名称为Text1,并有如下事件过程:PrivateSubTextl_Change(IndexAsInteger)SelectCaseIndexCase0
默认情况下,下面声明的数组的元素个数是Dima(5,-2To2)
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码:PrivateSubCommandl_Click()Dimn0AsInteger:Dima,bAsIntegera=InputBox
窗体上有名称为Commandl的命令按钮,名称分别为List1、List2的列表框,其中List1的MultiSelect属性设置为1(Simple),并有如下事件过程:PrivateSubCommandl_Click()Fori
编写如下程序:PrivateSubCommand1_Click()DimmAsInteger,nAsIntegern=2Form=1To3Printproc(n);Next
以下关于VB文件的叙述中,正确的是
以下关于VB文件的叙述中,错误的是
下面可以作为软件需求分析工具的是()。
随机试题
关于左旋多巴的临床应用,正确的是:
口p与之间的关系是()
有关麻疹病毒的描述,不正确的是
属于“十八反”配伍禁忌的药组是
开放式基金公开说明书的报告截止日为()。
下列有关简易程序的叙述中,正确的有()。
软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是
耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是
AftertheColonialperiod’s50percentmortalityrate,lifeexpectancyimprovedforchildren,butaslateasthenineteenthcent
TravelforWorkYoucanseethemineveryairportintheworld.Theyarebusinessmenandwomenwhohavetotravelfortheir
最新回复
(
0
)