这个很简单的
新建文本框和标签控件各1个
然后双击窗体,在代码页输入如下代码:
Private Sub Form_Load()
Text1.Text = ""
Label1.Caption = ""
End Sub
Private Sub Text1_Change()
On Error Resume Next
If Text1.Text = "" Then Exit Sub
Label1.Caption = Asc(Text1.Text)
End Sub
按F5运行,Good luck
Label1.Caption = Asc(Text1.Text)