Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = Asc(TextBox1.Text)
End Sub
ASC就是将字符转换成ASCLL码值.
Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = Asc(TextBox1.Text)
End Sub
ASC就是将字符转换成ASCLL码值.