fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

RND

Uploader:	Sebastian
Datum/Zeit:	02.01.2009 13:51:25

'Demonstrationsprogramm

'Hier gepostet, statt es an eine E-Mail anzuhängen, da

'übereifrige Antivirenprogramme BAS-Attachments oft

'einfach löschen

dim as integer r

dim as single p

dim as ulongint n, i, anzahl(1 to 6)

n = 500000000

randomize timer

'n Zufallszahlen generieren

for i = 1 to n

    r = Int(RND*5)+1

    anzahl(r) += 1

next i

'Jetzt die Bilanz ausgeben:

Print "Haeufigkeiten:"

for i = 1 to 6

    Print Using "  #  >  #########  ("; i, anzahl(i);

    'Berechnung des Anteils in Prozent:

    anzahl(i) *= 100

    p = anzahl(i) / n

    Print Using "##.###%)"; p

Next i

sleep

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.