在窗体上画一个文本框Text1,并编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim ch As String ch = UCase(Chr(KeyAscii)) If

admin2020-01-02  18

问题 在窗体上画一个文本框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
0

随机试题
最新回复(0)