Vb校验和算法
我需要对下边一组数进行校验和的算法，算法是单字节相加，然后得到的结果取反+1，请问怎么计算呢？
需要校验和数据：A9 01（为01-16之间的数字） 01（为01-16之间的数字）00 00 00 00 00 00 00 00 00 00 00 00
关注。。。。。。。。
好的，我去看看。一会我给帖子加点分
猴哥，A9在什么地方啊？
我这么改了，好像不对，结果成了32了
Dim a(15) As Byte, x As Integer, i As Integer
a(1) = a9
a(2) = Val(Combo1.Text) ‘combo1.text=16
a(3) = Val(Combo1.Text) ’combo1.text=16
For i = 1 To 14
x = x + a(i)
Next
x = x And 255
Text1 = x
x = Not x + 1
A9要装入的话在a(0),我没装你要装的话可以：
a(0) = &HA9
感谢猴哥的帮忙！
相关问答：
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
xmlDoc1.loadXML(h)总是返回false，为什么？谢谢帮忙回答一下
h是什么呢。。。。。。。。。
h是xml格式的字符串
你是想打开。XML格式的文件吧？
我是把h放在xmlDoc1里，用xmlDoc1.loadXML(h)，然后取xmlDo ......
