秦皇岛房地产招聘信息:vb dim问题

来源:百度文库 编辑:中科新闻网 时间:2024/05/05 21:43:37
Private Sub Command1_Click()
Dim a As Integer
For a = 1 To 254
Shell "cmd /c ping 192.168.0." & a & ">c:\ping.txt"
Next a
End Sub

怎么了?

在Next前面加上一行Doevents试一下

这样作你要打开254个DOS窗口,晕!