[Visual Basic] VBS - Erstellte Zufallszahlen in Bin umwandeln...

Dim a, b, D, Bit, Dateisystem, Zahlen, Textdatei, Pfad, Bin, ZahlenBin
Pfad = "./Binaer.txt"

Set Dateisystem = CreateObject("Scripting.FileSystemObject")
Set Textdatei = Dateisystem.CreateTextFile(Pfad,true)
Function Dec2Bin(D)
 Bin = ""
 For b = 7 To 0 Step -1
 Bit = Int(D / 2 ^ b)
 D = D - Bit * 2 ^ b
 Bin = Bin & CStr(Bit)
 Next
 Dec2Bin = Bin
End Function

a = InputBox("Anzahl der Binären Zahlen:","Eingabe","Anzahl") : s= ""
Do Until a = 0
Randomize
Zahlen = Int(Rnd()*100)+1
ZahlenBin = Zahlen
ZahlenBin = Dec2Bin(D)
Textdatei.WriteLine ZahlenBin
s = s & a & ", "
a = a-1
loop

Textdatei.close