Question

Private Sub Text1_KeyPress(KeyAscii As Integer)

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim s As String * 1, s1 As String * 1, s2 As String * 1
s = Text1
s1 = Chr(Asc(s) - 1)
s2 = Chr(Asc(s) + 1)
Label4.Caption = s1
Label5.Caption = s2
End Sub
中的s As String * 1是什么意思????
可以详细解释keypress的这些语句吗????

Answer 1

以下每块第一行为解释对象, 剩余为针对这一部分的解释

String * 1
这里在String类型后面加上* 数字, 意为定义定长字符串(这个字符串的长度被始终控制为指定数值, 这个字符串的初始值是其中填满Chr(0))

s = Text1
这样用是可以的，虽然并不提倡。最好写完整为 s = Text1.Text。意义为把 Text1 中的文本内容赋给字符串 s

Asc(s)
获取s中首字符的Ascii码

Chr(Asc(s) - 1)
Chr(数字)可以返回Ascii码为指定数字的字符

Answer 2

dim s As String * 1 表示定义s为1单位长度的字符变量

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim s As String * 1, s1 As String * 1, s2 As String * 1 '定义3个变量
s = Text1.text '你这有误，将text1属性赋值给s
s1 = Chr(Asc(s) - 1)
s2 = Chr(Asc(s) + 1) '通过ascii码将s1,s2赋值为与s相近的2个字符
Label4.Caption = s1
Label5.Caption = s2 '将s1,s2的值在label4，label5中显示

End Sub

Answer 3

wqwqw