Asc 函数
在天水等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都网站建设、网站设计 网站设计制作按需求定制设计,公司网站建设,企业网站建设,高端网站设计,营销型网站,成都外贸网站建设公司,天水网站建设费用合理。
返回一个 Integer，代表字符串中首字母的字符代码。
语法
Asc(string)
必要的 string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符，则会产生运行时错误。
说明
在非 DBCS 系统下，返回值范围为 0 – 255 。在 DBCS
系统下，则为 -32768 – 32767。
注意 AscB
函数作用于包含在字符串中的字节数据，AscB 返回第一个字节的字符代码，而非字符的字符代码。AscW 函数返回 Unicode 字符代码，若平台不支持 Unicode，则与 Asc
函数功能相同。
Asc 函数示例
本示例使用 Asc 函数返回字符串首字母的字符值（ASCII 值）。
Dim MyNumber
MyNumber = Asc("A") ' 返回 65。
MyNumber = Asc("a") ' 返回 97。
MyNumber = Asc("要") ' 返回 -11606
Public Function dec_to_hex(dec As Long) As String
Dim a As String
dec_to_hex = ""
Do While dec 0
a = CStr(dec Mod 16)
Select Case a
Case "0": a = "30H"
Case "1": a = "31H"
Case "2": a = "32H"
Case "3": a = "33H"
Case "4": a = "34H"
Case "5": a = "35H"
Case "6": a = "36H"
Case "7": a = "37H"
Case "8": a = "38H"
Case "9": a = "30H"
Case "10": a = "65H"
Case "11": a = "66H"
Case "12": a = "67H"
Case "13": a = "68H"
Case "14": a = "69H"
Case "15": a = "70H"
End Select
dec_to_hex = a " " dec_to_hex
dec = dec \ 16
Loop
End Function
Dim i As Integer
Dim max As Integer = 0
For i = 0 To ListBox1.Items.Count - 1
If Asc(ListBox1.Items(i)) Asc(ListBox1.Items(max)) Then
max = i
End If
Next
Label1.Text = ListBox1.Items(max) ‘将结果显示在一个标签上。
可使用Asc 函数将字符转换为ASCII，使用Chr 函数将ASCII转换为字符。
Asc 函数，返回一个 Integer，代表字符串中首字母的字符代码。
Asc 函数示例
本示例使用 Asc 函数返回字符串首字母的字符值（ASCII 值）。
Dim MyNumber
MyNumber = Asc("A") ' 返回 65。
MyNumber = Asc("a") ' 返回 97。
MyNumber = Asc("字符") ' 返回 -10282。
Chr 函数，返回 String，其中包含有与指定的字符代码相关的字符 。
Chr 函数示例
本示例使用 Chr 函数来返回指定字符码所代表的字符。
Dim MyChar
MyChar = Chr(65) ' 返回 A。
MyChar = Chr(97) ' 返回 a。
MyChar = Chr(62) ' 返回 。
MyChar = Chr(-18437) ' 返回 符。