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:
1062		 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.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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