红外甲烷检测仪:解释一下

instrdim str1,str2,str3,str4
dim num
IP2Num=0
if isnumeric(left(sip,2)) then //如果sip前两个字符是数字,假设sip="110.111.112.113"
str1=left(sip,instr(sip,".")-1) //取第一个"."号以前的字符串给str1,str1=110
sip=mid(sip,instr(sip,".")+1) //取第一个"."号以后的所有字符串给sip=111.112.113
str2=left(sip,instr(sip,".")-1) //同上.str2=111
sip=mid(sip,instr(sip,".")+1) //同上,sip=112.113
str3=left(sip,instr(sip,".")-1) //同上,str3=112
str4=mid(sip,instr(sip,".")+1) 同上,sip=113
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)
IP2Num = num
end if
end function
function Num2IP(nip)
iip1 = int(nip/256/256/256) //得出IP最高位
iip2 = int((nip-iip1*256*256*256)/256/256) // 得出IP第二位
iip3 = int((nip-iip1*256*256*256-iip2*256*256)/256) //得出IP第三位
iip4 = int((nip-iip1*256*256*256-iip2*256*256-iip3*256) mod 256) //得出IP最末位
iip0 = iip1 &"."& iip2 & "." &iip3 &"."& iip4 //组合成a.b.c.d形式
Num2IP = iip0
end function
dim userIPnum

它的功能就是把IP地址从计算机识别形式IP4到a.b.c.d形式的s相互转换.

我就不说了，上边的很详细，本来是想评论的，不过找不到评论的地方了，
原来是专家。

呵呵。。。