怎么用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

标签: