Question

Private Sub Text1_KeyPress(KeyAscii As Integer) Dim x As String * 1 x = Chr$(KeyAscii) Select Case

谁能说说这每一步都是什么意思？？

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer) Dim x As String * 1 x = Chr$(KeyAscii) Select Case

这是一个事件驱动过程。

当Text1获得焦点的时，键盘按下时所激发的事件过程。

KeyAscii As Integer 识别键名的ASCII码。

dim x as string*1的意思是定义变量 x 为字符串型，长度为一个字节。

x = chr(keyascii)的意思是监听键盘按下的某个键子并把它送入变量X。把这个键子的ASCII码变成原有的字符，这样就是还原了按下的键子。

比如你按下a键,那么代码执行后x的值就等于a

Answer 2

你打的那一个不用算吗？keyascii
=
asc(lcase(char))这句只会影响打进去字符的大小写，而不会影响他的输出，如果你想只输出六个可以改为
private
sub
text1_keypress(keyascii
as
integer)
dim
char
as
string
char
=
chr(keyascii)
keyascii
=
asc(lcase(char))
text1.text
=
string(6,
keyascii)
keyascii
=
0
end
sub