vb 0到1000000的随机不重复整数并且在WORD能够输出和打印

Private Sub Form_Click()
Dim n As Long, i As Long
Randomize (3) ’产生不同的随机数
Open "d:\0到1000000的随机整数.txt" For Output As #1
For i = 1 To 1000001
Print #1, CLng(Rnd * 1000000),'化整
If i Mod 3 = 0 Then Print #1,
Next i
Close #1
Name "d:\0到1000000的随机整数.txt" As "d:\0到1000000的随机整数.Doc" 'VB 中好象不能直接打印doc,所以要重命名，以转换为doc文档！！！
kill "d:\0到1000000的随机整数.txt" '删除原来的txt文件！
MsgBox "成功！"
End Sub
'现在明白不？QQ 不登陆上，下次吧！