ASCII函数谁可以举个例子

来源:百度知道 编辑:UC知道 时间:2024/05/08 14:08:58
ASCII(character_expression):返回字符表达式character_expression最左边的ASCII码
例如:
ASCII('abc')
谁可以写个过程出来让我看看
谢谢

本示例使用 Asc 函数返回字符串首字母的字符值(ASCII 值)。

Dim MyNumber
MyNumber = Asc("A") ' 返回 65。
MyNumber = Asc("a") ' 返回 97。
MyNumber = Asc("Apple") ' 返回 65。

又如:
本例将输入到 TextBox 控件的文本转换为大写。

Private Sub Text1_KeyPress (KeyAscii As Integer)
Char = Chr(KeyAscii)
KeyAscii = Asc(UCase(Char))
End Sub