Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Frage an Dieter
Autor: Resoucer
Datum: 30.01.03 07:43
Hallo Dieter, ich habe dein Beispiel ausprobiert und es läuft, aber ich verstehe nicht wieso! Ich habe mir auch schon dein Tipp durchgelesen, aber der besteht fast aus den selben Sätzeb wie der Forumeintrag. Also Ich habe bei dem Code in fast jede Zeile ein kommentar rein geschrieben, was ich glaube was da passiert. Schreib mir bitte wenn etwas nicht richtig ist. So lautete der code: Private Sub Command1_Click() ' Die ersten 3Zeilen verstehe ich Dim i As Integer Dim nZahl As Integer ' Sicherstellen, dass immer eine neue Zufallsfolge ' von Zahlen ermittelt wird Randomize -Timer 'Das hast du ja gut beschrieben Text1.Text = "0" 'Alle textboxen auf 0 Text2.Text = "0" Text3.Text = "0" ' 1.000 Durchläufe '1000 Durchläufe Do While i < 1000 i = i + 1 ' Zufallszahl zwischen 1 und 100 'Zufallszahl zwischen 1 und 100 nZahl = Int(100 * Rnd + 1) 'aber was bedeutet,was macht ' nZahl = Int (100 * Rnd + 1) Select Case nZahl ' Also 100 mal die zufallszahl plus1 oder? Case 1 To 5 '5% verstehe ich noch. wegen 1-5 ' 5% Text1.Text = CStr(Val(Text1.Text) + 1) Case 6 To 15 'Vertsehe ich auch 6-15 = 10% ' 10% Text2.Text = CStr(Val(Text2.Text) + 1) Case Else '85% ' 85% Text3.Text = CStr(Val(Text3.Text) + 1) End Select Loop End Sub aber warum ist 85% an 1000 näher dranne als die anderen (wegen Case Else) Also geht das ganze bis zu 1000 wegen 1000 druchläufe oder?

Frage an Dieter

103

Resoucer

30.01.03 07:43

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen