1樓：匿名使用者
設文字框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
2樓：dl_會飛的青蛙
用"."分割 把前三個依次比較 如果前3個都相同 那麼就是同乙個網段唄！~
你說的子網掩碼不知道你是輸入2個還是1個 如果是2個 就按ip一樣的判斷
如果2個都=true 那麼就是同一網段 如果乙個不同 那麼就不是唄！~
3樓：
k=k*256+val(s)
顯示溢位了
4樓：
還是不行啊~~~~詳細點好不~~~~我們一點沒學過~~~
用VB製作程式
上面的s1 s2要宣告成string，然後const一下 的名字，或者直接寫上s1 檔案1.s2 檔案2.1 建立模組，在裡面寫 public declare function sndplaysound lib winmm.dll alias sndplaysounda byval lpszsoun...
用VB編寫程序，用VB編寫程式
首先，用vb畫出介面圖，那些按鈕控制項，每個按鈕空間都要實現什麼功能，這個你自己心裡要有數，然後給按鈕編 你要具體點，別人才好回答你！我也是用這個,很好用的,目前沒發現病毒 vb程式編寫 用vb編寫程式 怎樣用vb編寫程式從鍵盤上輸入10個數求平均值 怎麼用vb編寫乙個exe檔案？1 執行vb6.0...
用VB迴圈巢狀結構設計一程式，用VB迴圈巢狀結構設計一程式
哥，看不到你的鏈結，說是圖形外部鏈結受限。我也不清楚了，這些只是 以下的 只是死迴圈，用於任何乙個控制項！開始和結束的 我省略了，把 複製在中間就可以了！while和msgbox後面的數字可以是任何數，都一樣的 while 2 msgbox 2 wend 看不到圖，重給個能看的鏈結吧 關於vb兩重迴...