怎么用VB編一個(gè)100個(gè)，由0到9還有a到F的64位隨機(jī)數(shù)，把它生成到一個(gè)TXT文件里？
網(wǎng)友解答: 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 '這個(gè)C:RHN.txt是文本文檔的路徑
For i = 1 To 100 '執(zhí)行100次
Num = ""
For i_ = 1 To 63 '生成64位隨機(jī)數(shù)
Num = Hex(CByte(Rnd * 15)) & Num
Next
Print #1, Num
Next
Close #1
CreateObject("Shell.Application").Open "C:RHN.txt"
End Sub