这段代码效率比你的高
Private Sub Command1_Click()
Dim i As Integer
Dim p As String
Dim j As String
Dim x As Integer
Dim s As String
For i = 1 To 254
p = "192.168.0." & i
j = "JX" & i
s = s & "网吧IP：" & j & "=" & p & Space(10)
If i Mod 5 = 0 Then s = s & vbCrLf
Next i
Text1 = s
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024