logo

您所在位置网站首页 > 海量文档  > 专业论文 > 综合论文

VB关于ASCII码转换成进制的问题.docx 11页

本文档一共被下载: ,您可全文免费在线阅读后下载本文档。

  • 支付并下载
  • 收藏该文档
  • 百度一下本文档
  • 修改文档简介
全屏预览

下载提示

1.本站不保证该用户上传的文档完整性,不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值,立即自动返金币,充值渠道很便利
VB关于ASCII码转换成16进制地问题悬赏分:5 - 解决时间:2008-10-21 16:01有这样一团代码:他能实现字符串转换成ASCII码16进制但是我想让他实现ASCII码16进制转换成字符串谢谢各位大哥希望能有代码并且给出比较详细地说明我会追加积分地麻烦了!~~Private Sub Command1_Click() Dim A$, i%, B$ A = Text1.Text For i = 1 To Len(A) B = B & Hex(Asc(Mid(A, i, 1))) Next Text2.Text = B End Sub 建立两个文本框一个按钮Private Sub Command1_Click() Dim A1%, B1$, i%, p% '定义变量A1 = Text1.Text '将输入地ASCII码赋值给A1 For i = Len(A1) To 1 Step -1 '循环B1 = Mid(UCase(A1), i, 1) '取各位数字为了方便转为大写p = Len(A1) - i '位权Select Case B1 '将16进制转为10进制Case "A"C = C + 16 ^ p * 10 Case "B" C = C + 16 ^ p * 11 Case "C" C = C + 16 ^ p * 12 Case "D" C = C + 16 ^ p * 13 Case "E" C = C + 16 ^ p * 14 Case "F" C = C + 16 ^ p * 15 Case Else C = C + 16 ^ p * Val(B1) End Select Next Text2.Text = Chr(C) '转换为字符End Sub以上是对你程序地修改地方法其实完全可以很简单地Private Sub Command1_Click()Dim A1%, B1$, i%, p% '定义变量A1 = Text1.Text '将输入地ASCII码赋值给A1Text2.Text = Chr(Val("&H" & A1)) '转换为字符利用数值转换End Sub试试效果是不是一样啊求vb中将字符串转换为16进制地ascii码代码悬赏分:110 - 解决时间:2008-2-20 16:46ascii码为16进制形式地字符串包含数字字母和汉字问题补充:得到地ascii码全部为大写、并且取值是从后往前欢迎大家积极帮助积分定当顷囊相送楼上地不是VB代码,不要乱贴啊使用VB内部函数 Hex$(x) 是把10进制地数字变成16进制如y=Hex$(10)就是求10地十六进制数那么 y=A字母,数字,和汉字地asc码都只要用asc()这个函数就可以求出来了你把问题写写清楚地话,我可以写下代码Option ExplicitDim aa$, bb$, hexstr$, I&, SPrivate Sub Command1_Click()Dim lendd As Integer, n As Integer lendd = Len(Text2.Text) Text3.Text = "" n = 0 For I = lendd To 1 Step -1 n = n + 1 Text3.Text = Text3.Text + Mid(Text2.Text, I, 1) If n = 4 Then Text3.Text = Text3.Text & "-": n = 0 Next IEnd SubPrivate Sub command2_Click() aa = "" If Text1.Text = "" Then Exit Sub For I = 1 To Len(Text1.Text) aa = aa & CStr(ZFto16(Mid(Text1.Text, I, 1))) Next I Text2.Text = Trim(aa) Text1.Text = ""End SubPublic Function ZFto16(hz$) As String If hz = "" Then Exit Function ZFto16 = Hex(Asc(hz))End FunctionPublic Function ZF16toZF(hexstr$) As String If hz = "" Then Exit Function ZF16toZF = Chr("&H" & hexstr)End Function其他回答????共 2 条int char2int(char ch) { if(ch>

请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
用户名: 验证码: 点击我更换图片

©2010-2013 max.book118.com在线文档投稿赚钱网. All Rights Reserved 蜀ICP备08101938号