在窗体上有一个文本框,其名称为Text1,编写下列事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str=Chr(KeyAscii) KeyAscii=Asc(

admin2013-04-11  61

问题 在窗体上有一个文本框,其名称为Text1,编写下列事件过程:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String
str=Chr(KeyAscii)
KeyAscii=Asc(UCase(str))
Text1.Text=Stririg(2,KeyAscii)
End Sub
程序运行后,如果在键盘上输入字母“a”,则在文本框Text3中显示的内容为(    )。

选项 A、aaa
B、AAA
C、AA
D、aa

答案B

解析 UCase(str)将str转成大写的字符串;String(n,character)返回n个重复的字符,如果character是ASCII码,则返回其对应的字符。程序运行过程为:首先输入字母“a”,并通过“str=Chr(KeyAscii)”语句将a的ASCII值转换成字符串;然后通过“KeyAscii=Asc(UCase(str))”求得大写A的ASCII值,并显示在文本框中;最后通过“Text1.Text=String(2,KeyAscii)”语句为文本框输入了两个字母“A”,所以最后在文本框中显示出3个大写字母“A”。
转载请注明原文地址:https://jikaoti.com/ti/pUO0FFFM
0

最新回复(0)