请教各位高手，怎么用VB实现16进制数的相加。我用VB做FXPLC的通信，计算LRC校验和时，需要16进制的ASCII码相加，并且需要相加的十六进制数中，有控制字符ETX（其ASCII码为03H），我尝试先把他们的十进制加起来再转换过来，可因为有控制字符，所以结果是错误的。现在不知道该怎么实现？各位高手帮帮忙！非常感谢

十六进制.哈哈,有意思VB没有十六进制转换吗?好象只有转成10进制的.
以前我用笨办法做过任意位数的计算器,办法就是把它以字符形式一位一位地算.(够笨吧?不过无任多少位都是可以算的,只是速度上有些问题,开平方,算了一个多小时才算到小数点的几千位)
我想你也可以用我的笨方法算.
不过,正确的算法应该是以二进制算.这样速度更快(当然你得对二进制熟了).

问题是不知道你想怎么加两个数啊，你不说你的两个数是哪几位相加，不相加的几位怎么处理(你所说的验证位)?
你至少也得举个例：哪个两数相加后应该是等于多少啊。

能不能举个例子啊，都空说，不好解决问题啊

假如说一串字符：代码为：STX 0 0 F F 0 0 1 1 0 1 1 0 1 ETX 16进制的ASCII码为：02H 30H 30H 46H 46H 30H 30H 31H 31H 30H 31H 31H 30H 31H 03H ，计算其校验和，即将其ASCII码相加，舍去高位，取其低两位，在这里这一串字符的校验和为41H 36H。这是用计算器按出来的，就是不知道用VB怎么编程实现？希望各位帮帮忙！

[此贴子已经被作者于2007-6-2 21:55:40编辑过]

你最好是把你用计算器算的步骤写清楚。

搞不明白你说什么，怎么“02H 30H 30H 46H 46H 30H 30H 31H 31H 30H 31H 31H 30H 31H 03H ，计算其校验和，即将其ASCII码相加，舍去高位，取其低两位，在这里这一串字符的校验和为41H 36H”怎么计算的？？？？？？

首先在计算器上选择16进制，然后将如下的字符串一一加起来， 02 30 30 46 46 30 30 31 31 30 31 31 30 31 03 最后得到2A6，取后两位A和6，分别用其ASCII字符表示即为41和36。各位可以在自己电脑上的计算器算算，就是这样的。求教如何用VB实现啊？？？

随便写个函数把16→10处理
然后用Hex()转回16,返回String
Right(String,2)
分别对2个字符处理转ASC(),转16进制就是结果

我自己都晕晕的

[此贴子已经被作者于2007-6-4 14:09:12编辑过]

Option Explicit

Private Sub Form_Load()
Dim STR1 As String, NUM1 As Integer, NUM2 As Integer
STR1 = Chr(2) & "00FF001101101" & Chr(3)
STR2Num STR1, NUM1, NUM2
Debug.Print "NUM1=" & Hex(NUM1) & " NUM2=" & Hex(NUM2)
End Sub

Private Sub STR2Num(ByVal STR1 As String, NUM1 As Integer, NUM2 As Integer)
'这个过程是返回两个十进制数分别放入NUM1、NUM2中
Dim Byte_D() As Byte, I As Long, K As Double
Byte_D = StrConv(STR1, vbFromUnicode)
For I = 0 To UBound(Byte_D)
K = K + Byte_D(I)
Next
STR1 = IIf(K < 16, "0" & Hex(K), Right(Hex(K), 2))
Byte_D = StrConv(STR1, vbFromUnicode)
NUM1 = Byte_D(0)
NUM2 = Byte_D(1)
End Sub