Другие языки программирования и технологии

Нужна помощь по Visual Basic

Как создать игру "крестики-нолики" в Visual Basic или смешную рожицу, попеременно моргающую глазами.
' odin iz variantov
'Sozday massiv knopok Command1
' index ot 0 do 8
'razmeshay takimobazom
'0 1 2
'3 4 5
'6 7 8
' votivse

Private lastisMe As Boolean '
Private Function Test(sOX As String) As Boolean
Dim tempTest As Boolean
tempTest = True
For i = 0 To 2
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i

If tempTest Then
GoTo endTest
End If
tempTest = True

For i = 3 To 5
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True

For i = 6 To 8
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True

For i = 0 To 6 Step 3
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True

For i = 1 To 7 Step 3
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True

For i = 2 To 8 Step 3
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True

For i = 0 To 8 Step 8
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True

For i = 2 To 6 Step 2
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
endTest:
If tempTest Then
MsgBox sOX & " is winner!"
End If
Test = tempTest
End Function
Private Sub Command1_Click(Index As Integer)
Dim Sym As String
If lastisMe Then
Sym = "X"
Else
Sym = "O"
End If

Command1(Index).Caption = Sym
If Test(Sym) Then
If (MsgBox("Game is over. Would yuo like start again?", vbYesNo) = 6) Then
Form_Load
Else
End
End If
End If
lastisMe = Not lastisMe
End Sub

Private Sub Form_Load()
For Each ctlBTN In Controls
ctlBTN .Caption = ""
Next

End Sub
Анатолий Винокуров
Анатолий Винокуров
3 926
Лучший ответ
Напишите адрес. Вышлю книгу.