nynw.net
当前位置:首页 >> 在vB编程中如何进行字符和ASCII码之间的转换 >>

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

利用vb中的函数进行转换。 chr(x) 返回以x为ASCII码的字符 如 chr(65)结果为 "A" Asc(x) 给出字符x的ASCII值,十进制数 如 Asc("a)" 结果为97

Dim i As Integer, str As String, ascstr As String str = InputBox("请输入字符串") For i = 1 To Len(str) ascstr = ascstr & CStr(Asc(Mid(str, i, 1))) Next i Print ascstr

cc="sadsad" aa="" do until len(cc)=0 aa=aa & asc(cc) & "," cc=right(cc,len(cc)-1) loop aa中保存的就是ASCII码 串 do...loop是循环语句,len()是求字符串长度的函数,do until len(cc)=0意思是如果字符串的长度为0就不再执行do...loop之间...

Dim i As Integer For i = 1 To Len(Text1) Text2 = Text2 + Hex(Asc(Mid(Text1, i, 1))) Next '输入 百度 ,输出 B0D9B6C8 不知道是不是你要的

Microsoft(R) Visual Basic(R) Scripting Edition Chr 函数 语言参考 起始页 | 版本 1 请参阅 -------------------------------------------------------------------------------- 描述 返回与指定的 ANSI 字符代码相对应的字符。 语法 Chr(cha...

For i = 1 To Len(Text1.Text) dfc = Mid(Text1.Text, i, 1) vff = vff & Asc(dfc) Next i Text2 = vff

Private Sub Form_Click() Dim i As Integer, sum As Integer For i = 1 To 26 Print Chr(96 + i); "="; CStr(96 + i), sum = sum + 96 + i If i Mod 5 = 0 Then Print Next Print Print "sum="; sumEnd Sub

s = "\u5973"Set sc = CreateObject("ScriptControl")sc.language = "javascript"MsgBox sc.eval("'" & s & "'")

用如下语句可以查看ascii码 msgbox asc("A") ascii码是目前计算机中用得最广泛的字符集及其编码,是由美国国家标准局(ANSI)制定的ASCII码(American Standard Code for Information Interchange,美国标准信息交换码),它已被国际标准化组织(I...

Ascii码转换成字符的函数:Chr(),例如:Chr(65)转换成大写字母A 字符转换成Ascii码的函数:Asc(),例如:Asc("A")转换成65

网站首页 | 网站地图
All rights reserved Powered by www.nynw.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com