1,502
社区成员
发帖
与我相关
我的任务
分享求列出一个IP段的所有IP
dim IP1(3) as integer
dim ip2(3) as integer
IP段: 12.12.12.12-2.2.2.2
IP1(0)=12
IP1(1)=12
IP1(2)=12
IP1(3)=12
ip2(0)=2
ip2(1)=2
ip2(2)=2
ip2(3)=2
如何列出所有IP?
dim ip2(3) as integer
IP段: 12.12.12.12-2.2.2.2
IP1(0)=12
IP1(1)=12
IP1(2)=12
IP1(3)=12
ip2(0)=2
ip2(1)=2
ip2(2)=2
ip2(3)=2
如何列出所有IP?
...全文
请发表友善的回复…
发表回复
红牛哥110 2004-01-04
- 打赏
- 举报
IP的终值是255,这个还不是很完整,帮忙想想,还要加几个if才行吧
northwolves 2004-01-02
- 打赏
- 举报
好像也只能这样
kmzs 2004-01-02
- 打赏
- 举报
妈呀，运行一下时间好长。。。
脆皮大雪糕 2004-01-02
- 打赏
- 举报
Dim IP1(3) As Integer
Dim ip2(3) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
IP1(0) = 12
IP1(1) = 12
IP1(2) = 12
IP1(3) = 12
ip2(0) = 2
ip2(1) = 2
ip2(2) = 2
ip2(3) = 2
For i = ip2(0) To IP1(0)
For j = ip2(1) To IP1(1)
For k = ip2(2) To IP1(2)
For l = ip2(3) To IP1(3)
DoEvents
Debug.Print i & "." & j & "." & k & "." & l
Next
Next
Next
Next
Dim ip2(3) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
IP1(0) = 12
IP1(1) = 12
IP1(2) = 12
IP1(3) = 12
ip2(0) = 2
ip2(1) = 2
ip2(2) = 2
ip2(3) = 2
For i = ip2(0) To IP1(0)
For j = ip2(1) To IP1(1)
For k = ip2(2) To IP1(2)
For l = ip2(3) To IP1(3)
DoEvents
Debug.Print i & "." & j & "." & k & "." & l
Next
Next
Next
Next
cso 2004-01-02
- 打赏
- 举报
设置一个套嵌循环（4个）很容易解决
