在vb编程中如何进行字符和ASCII码之间的转换

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

VB.NET中怎么将16进制数换成对应的ASCII，比如说&H1000，怎么把他换成31H,30H,30H,30H

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

vb.net怎样找出列表框中最大的英文字母（怎样将列表框中的每一项转换为asc码）

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) ‘将结果显示在一个标签上。

用VB把字符转换为ASCII ascii转换为字符

可使用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)   ' 返回 符。

本文名称：vb.net怎样转asc,vb 类型转换
网站URL：http://cqwzjz.cn/article/hegeso.html