怎么用VB编一个100个,由0到9还有a到F的64位随机数,把它生成到一个TXT文件里?
网友解答: Private Sub Form_Load()On Error Resume NextKill "C:RHN.txt"RandomizeDim Temp As String,
Private Sub Form_Load()
On Error Resume Next
Kill "C:RHN.txt"
Randomize
Dim Temp As String, i As Byte, i_ As Byte, Num As String
Open "C:RHN.txt" For Append As #1 '这个C:RHN.txt是文本文档的路径
For i = 1 To 100 '执行100次
Num = ""
For i_ = 1 To 63 '生成64位随机数
Num = Hex(CByte(Rnd * 15)) & Num
Next
Print #1, Num
Next
Close #1
CreateObject("Shell.Application").Open "C:RHN.txt"
End Sub