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

Ansicht des Beitrags:
Von:
jht		 Datum:
29.06.2011 19:02:25		 Views:
1933		 Rating:
     
Antwort:
  Ja
Thema:
Summe Zufallszahlen

Hi,

Ich hab folgendes Problem:

Habe 2 Arrays; eines mit der Länge 5 und das andere mit der Länge 6

Beide werden mit Zufallszahlen befüllt. Die Summe der Zufallszahlen von beiden Arrays soll aber am Ende den gleichen Wert haben.

Habs mit ner Loop-Until schleife versucht. Also das er so lange Zufallszahlen generiert bis die beiden Summen der Arrays den gleichen Wert haben; klappt aber nicht:

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

 

Bitte dringend um Hilfe und wäre äußerst dankbar

Lg

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
Rot Summe Zufallszahlen
 29.06.2011 19:02:25 jht
NotSolved
29.06.2011 20:06:09 Gast61006
NotSolved
29.06.2011 21:00:35 jht
NotSolved
30.06.2011 00:46:28 Till
NotSolved
01.07.2011 15:30:22 Holger
NotSolved