AW: Zahl nach Vorgabe generieren
15.08.2007 09:55:00
Horst
Hallo Christoph,
als Beispiel für deine Frage
Wie kann ich eine 5 stellige Zahl generieren, die einer bestimmten vorgegebenen Quersumme entspricht?
nennst du eine sechsstellige Zahl (372611) - das ist schon etwas verwirrend. Ansonsten kannst du das mit einer fünffach verschachtelten Schleife lösen. In der Art:
Option Explicit
Sub quersumme()
Dim vorgabe As Integer, zahl As Integer
Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer
Dim text As String
vorgabe = 20
For i = 1 To 9
For j = 1 To 9
For k = 1 To 9
For l = 1 To 9
For m = 1 To 9
zahl = i + j + k + l + m
If zahl = vorgabe Then
text = i & j & k & l & m & " = " & vorgabe
MsgBox (text)
Exit Sub
End If
Next
Next
Next
Next
Next
End Sub