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的这些语句吗????
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
'你这有误，
