有这么段程序: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分,全给了,谢谢。
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)
等同于
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
Dim j As Integer
i = 1
j = 1
可写作
Dim i As Integer
Dim j As Integer
i = 1:j=1
一条语句写一行,如果把一行写作多行,就用“_”符号连起来,如果想把多行写作一行,就用“:"