易截截图软件、单文件、免安装、纯绿色、仅160KB

VB中“:”什么意思

有这么段程序: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


如果想要把两行语句当作一行来写,就用:连起来

比如,


相关问答:

求教下VB如何给D3D游戏写屏 - VB / API

想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】,效果就像游戏平台中一样,我试过在一窗口中写入文字,然后一直让窗口强制最前,虽然能实现文字显示,但是文字会不断闪烁,而且有不确定BUG,通过论坛搜 ......

为什么用VB改变不了工具栏按扭的宽度 - VB / 控件

为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了

大胡子真厉害,回答基本都是爆料级的
大胡子升级真快啊,这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。

回复 ......

vb - VB / 基础类

我想把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 6.0 - VB / 控件

把已有数据(数据大于20行)的RS(recordset)的第10行数据与第11行数据做加法后,删除第11行的数据,然后把后面的数据向前移。
RS的话修改数据是会更新数据库,现在的问题是RS里的已有数据是用SQL语句分类统计出来的 ......

vb - VB / 基础类

xmlDoc1.loadXML(h)总是返回false,为什么?谢谢帮忙回答一下
h是什么呢。。。。。。。。。

h是xml格式的字符串

你是想打开。XML格式的文件吧?

我是把h放在xmlDoc1里,用xmlDoc1.loadXML(h),然后取xmlDo ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号