有这么段程序: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,通过论坛搜 ......