[单项选择题] 在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String
char=Chr(KeyAscii)
KeyAscii=Asc(UCase(char))
Text1.Text=String(6,KeyAscii)
End Sub
程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为 ______。
A.a
B.A
C.aaaaaaa
D.AAAAAAA
[单项选择题] 在窗体上画一个文本框,然后编写如下事件过程:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim char As String
char=Chr(KeyAscii)
KeyAscii=Asc(UCase(char))
Text1.Text=String(6,KeyAscii)
End Sub
程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为 ______。
A.a
B.A
C.aaaaaaa
D.AAAAAAA
D
[评析] 该事件过程中首先用Chr函数记录下输入的字符,然后用UCase函数将其转化为大写,再用Asc函数记录下其码值。最后使用String函数将其重复6遍并输出到文本框中。当文本框中的文本内容发生变化的时候,会触发文本框的Change事件,而KeyPress事件是在Change事件之前触发的,在发生KeyPress事件之前,尚未触发Change事件。在KeyPress事件中,改变了文本框的Text属性,所以会触发Change事件,之后,键盘输入的信息“a”才在变为大写之后输入文本框,文本框中最终显示的是7个“A”。
VIP截止日期:2025-01-03 01:06:50
←请使用支付宝扫码支付VIP截止日期:2025-01-03 01:06:50
←请使用微信扫码支付