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