用VB制作一个程序求字符的AscII值，向文本框中输入一个字符，单击命令按钮，在窗体上显示该字符的AscII值

来源：百度知道 编辑：UC知道 时间：2024/05/30 09:58:13
5、 制作工程求圆的面积，要求使用val()数值转换函数。并输入任意字符串进行检测。

Private Sub Command1_Click()
a = InputBox("输入要验证ASCLL码的字符")
k = Asc(a)
Print k
End Sub

Private Sub CommandButton1_Click()
Dim i As Integer
i = Asc(TextBox1.Text)
Print i
End Sub

Sub Command1_Click()
Dim s As String

s = Left$(Text1.Text, 1)

Print Asc(s)

End Sub