物件導向設計vc++

Private Sub CommandButton1_Click()

For i = 1 To 9
Cells(1, i) = i
Cells(2, i) = i
Cells(1, i).Font.ColorIndex = 0

Next

myrnd = (Fix(Rnd() * 9) + 1)
Cells(3, 1) = myrnd

Cells(1, myrnd).Font.ColorIndex = 4
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 9)
Cells(1, 9) = tmp

myrnd = (Fix(Rnd() * 8) + 1)
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 8)
Cells(1, 8) = tmp

myrnd = (Fix(Rnd() * 7) + 1)
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 7)
Cells(1, 7) = tmp

myrnd = (Fix(Rnd() * 6) + 1)
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 6)
Cells(1, 6) = tmp

myrnd = (Fix(Rnd() * 5) + 1)
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 5)
Cells(1, 5) = tmp

myrnd = (Fix(Rnd() * 4) + 1)
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 4)
Cells(1, 4) = tmp

myrnd = (Fix(Rnd() * 3) + 1)
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 3)
Cells(1, 3) = tmp

myrnd = (Fix(Rnd() * 2) + 1)
tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, 2)
Cells(1, 2) = tmp

End Sub

Private Sub CommandButton1_Click()

For i = 1 To 9
Cells(1, i) = i
Cells(2, i) = i

Next

For i = 1 To 9
j = 10 - i

myrnd = (Fix(Rnd() * j) + 1)
Cells(3, 1) = myrnd

tmp = Cells(1, myrnd)
Cells(1, myrnd) = Cells(1, j)
Cells(1, j) = tmp

Next

End Sub