用VB设计一个IP判断的程序

设文本框t1,t2,t3
private sub command1_click()

dim ip1
dim ip2
dim ip3
ip1=toip(t1.text)
ip2=toip(t2.text)
ip3=toip(t3.text)
if (ip1 and ip3)=(ip2 and ip3) then msgbox "两个IP在同一个子网中！"
end sub

function toip(s as string)
s=s & "."
dim k
while len(s)>0
k=k*256+val(s)
s=right(s,len(s)-instr(1,s,"."))
wend
toip=k
end function

用"."分割 把前三个依次比较 如果前3个都相同 那么就是同一个网段呗！~

你说的子网掩码不知道你是输入2个还是1个 如果是2个 就按ip一样的判断

如果2个都=true 那么就是同一网段 如果一个不同 那么就不是呗！~

k=k*256+val(s)
显示溢出了

还是不行啊~~~~详细点好不~~~~我们一点没学过~~~