2. 计算机
  3. 在窗体上画一个文本框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

admin2018-09-19  52
问题 在窗体上画一个文本框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全国计算机二级

相关试题推荐
随机试题
最新回复(0)