请教个VB程序从16进制转到10进制的问题～

野猫III · 发表于 2006-7-21 16:28:35

Private Sub Command1_Click()
a = Text1.Text
b = Len(a)
Dim d As Long
For i = 1 To b
C = C + Hex(Asc(Mid(a, i, 1)))
Next i
d = d + C
Text2.Text = d
End Sub

'例：我　16进制是：CED2
'无符号数: 52946 有符号数: -12590
'我们所要的结果是要把“我”字转成10进制的52946

野猫III · 发表于 2006-7-21 17:22:32

试了一下，好像这个不行！
text1.text="英雄！"

caterpilla · 发表于 2006-7-21 18:17:59

没装VB，不过感觉解答并不正确。。。。。。。。。。

caterpilla · 发表于 2006-7-21 18:29:03

原帖由 weixq 于 2006-7-21 18:26 发表
哪里不正确？？？？？？？？？

我觉得这种基本的功能，决不会写得这么丑陋，这段程序读起来一点也不舒服，呵呵。

快雪时晴 · 发表于 2006-7-21 19:07:55

some some

[ 本帖最后由快雪时晴于 2006-7-21 19:26 编辑 ]

浮云思音 · 发表于 2006-7-21 21:10:34

原帖由 快雪时晴 于 2006-7-21 19:07 发表
some some

老大,这是讨论VB代码啊,怎么弄个易的,这个不算,快补个VB的来;P

浮云思音 · 发表于 2006-7-21 21:26:45

如果单用"我"字测试，二楼的代码得出的结果是52946，是正确的，四、五楼的代码得出的结果是52945，不正确

请更正~~~

快雪时晴 · 发表于 2006-7-21 21:53:05

VB的更简单

Private Sub Command1_Click()
v = ""
For i = 1 To Len(Me.Text1)
c = Mid(Me.Text1, i, 1)
a = Asc(c)
If a < 0 Then a = 65536 + a
v = v + CStr(a) + " "
Next
Me.Text2 = v
End Sub

复制代码

caterpilla · 发表于 2006-7-21 22:13:51

原帖由 快雪时晴 于 2006-7-21 21:53 发表
VB的更简单

Private Sub Command1_Click()
v = ""

For i = 1 To Len(Me.Text1)
c = Mid(Me.Text1, i, 1)
a = Asc(c)
If a < 0 Then a = 65536 + a
v = v + CStr ...

高！！！

pentacle · 发表于 2006-7-22 00:13:29

是的

0xFFFF+0x1+a

		自动登录	找回密码
密码			加入我们

请教个VB程序从16进制转到10进制的问题～

相关帖子

大家可以停止讨论了

评分