Makro gibt keine Lösung
08.06.2008 07:20:09
alifa
habe es mir nicht leicht gemacht, leider ohne Erfolg. Dieses Problem soll eine Lösung haben, doch mein Makro findet sie nicht. Wo liegt mein Fehler? Danke im Voraus für Hilfe! Gruß, alifa
'Finde eine achtstellige Quadratzahl mit folgender Eigenschaft.
'Die Zahl aus den ersten vier Ziffern, und die Zahl aus den letzten vier Ziffern,
'in dieser Reihefolge, sind zwei auf einander folgende Zahlen.
'Z.B. 12341235 ist aber leider keine Quadratzahl.
Sub ZahlSpiel14()
Dim a%, b%, c%, d%, z%, t!
t = Timer
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
If Sqr(CDbl(a & b & c & d & a & b & c & (d + 1))) - Int(Sqr(CDbl(a _
& b & c & d & a & b & c & (d + 1)))) = 0 Then
Cells(z + 1, 1) = a & b & c & d
z = z + 1
End If
Next
Next
Next
Next
MsgBox "Fertig in " & Timer - t & " Sek"
End Sub
Anzeige