重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net怎样转asc,vb 类型转换

在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 类型转换
本文网址:http://cqcxhl.com/article/hegeso.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP