智利葡萄酒分级制度:ASCII函数谁可以举个例子

来源:百度文库 编辑:高考问答 时间:2024/05/04 19:50:50
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