有这么段程序：function sum(sdata) as string
Dim（17）as integer,zh1 as interger
for k=1 to len(sdata)-1
zh(k)=val("&H"+mid(sdata,k,2)):zh1=zh1+zh(k)
next k
sum=right("00"+hex(zh1),2)
end function
是用来计算校验和的，其中的zh(k)=val("&H"+mid(sdata,k,2)):zh1=zh1+zh(k)是什么意思？请各位大大指教，仅有20分，全给了，谢谢。
语句分隔符。
zh(k)=val("&H"+mid(sdata,k,2)):zh1=zh1+zh(k)
相当于
zh(k)=val("&H"+mid(sdata,k,2))
zh1=zh1+zh(k)
VB 默认用换行作为语句结束（一行一语句）。
冒号“:”也可以作为语句结束符用，这样多句语句可以写在同一行。
VB code:
zh(k)=val("&H"+mid(sdata,k,2)):zh1=zh1+zh(k)
等同于
VB code:
zh(k)=val("&H"+mid(sdata,k,2))
zh1=zh1+zh(k)
多行代码写在一行时的分隔符.
for k=1 to len(sdata)-1
zh(k)=val("&H"+mid(sdata,k,2)):zh1=zh1+zh(k)
next k
等价于
for k=1 to len(sdata)-1
zh(k)=val("&H"+mid(sdata,k,2))
zh1=zh1+zh(k)
next k
如果想要把两行语句当作一行来写，就用：连起来
比如，
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】，效果就像游戏平台中一样，我试过在一窗口中写入文字，然后一直让窗口强制最前，虽然能实现文字显示，但是文字会不断闪烁，而且有不确定BUG，通过论坛搜 ......
