首頁>Club>
怎麼用VB編一個100個,由0到9還有a到F的64位隨機數,把它生成到一個TXT檔案裡。
6
回覆列表
  • 1 # 我愛程式設計VB

    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

  • 中秋節和大豐收的關聯?
  • 西昌可以種葡萄嗎?條件怎麼樣?