Unterrichtspraxis: Zauberquadrat
In einer 3x3 Matrix sollen die Zahlen 1 bis 9 so angeordnet werden, dass die Zeilen-, Spalten- sowie Diagonalsummen gleich sind.

Die Prozeduren:

Private Sub erzeugen_Click()
For i = 1 To 3
    For j = 1 To 3
         Cells(i, j) = (i - 1) * 3 + j
    Next
Next
End Sub

Private Sub vertauschen_Click()
z1 = Int(3 * Rnd) + 1: s1 = Int(3 * Rnd) + 1
z2 = Int(3 * Rnd) + 1: s2 = Int(3 * Rnd) + 1
a = Cells(z1, s1)
Cells(z1, s1) = Cells(z2, s2)
Cells(z2, s2) = a
End Sub

Private Sub Mischen_Click()
For i = 1 To 20
     ' Prozeduraufruf
     Call vertauschen_Click
Next
End Sub

 





Private Sub suchen_Click()
z = 0
Do
      z = z + 1
      Call vertauschen_click_Click
      Cells(8, 5) = z
Loop Until Cells(7, 3) = Cells(8, 3)
End Sub

ZURÜCK