Thema Datum  Von Nutzer Rating
Antwort
29.06.2011 19:02:25 jht
NotSolved
29.06.2011 20:06:09 Gast61006
NotSolved
29.06.2011 21:00:35 jht
NotSolved
Blau Summe Zufallszahlen
 30.06.2011 00:46:28 Till
NotSolved
01.07.2011 15:30:22 Holger
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
30.06.2011 00:46:28		 Views:
921		 Rating:
     
Antwort:
  Ja
Thema:
Summe Zufallszahlen

Du musst die Variablen nach jedem Durchlauf wieder auf Null setzen, sonst werden die Summen immer größer... was den Überlauf auslösen dürfte.

Sub Test()
     
    Dim a(1 To 5) As Integer
    Dim n(1 To 6) As Integer
    Dim ah As Integer 'Summe Array a
    Dim nh As Integer  'Summe Array n
    Dim t As Integer
     
    Do
        ah=0
        nh=0
        For t = 1 To 5
            a(t) = Math.Round((1 + Rnd * (100 - 1)), 0) 'Zufallszaheln 1 - 100
        ah = ah + a(t)
        Next
         
        For t = 1 To 6
            n(t) = Math.Round((1 + Rnd * (100 - 1)), 0) 'Zufallszahlen 1- 100
        nh = nh + n(t)
        Next
     
    Loop Until nh = ah
 
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.06.2011 19:02:25 jht
NotSolved
29.06.2011 20:06:09 Gast61006
NotSolved
29.06.2011 21:00:35 jht
NotSolved
Blau Summe Zufallszahlen
 30.06.2011 00:46:28 Till
NotSolved
01.07.2011 15:30:22 Holger
NotSolved