Codigo Del Triqui Para Visual Basic
If (a = "x" And b= "x" And c = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (d = "x" And e = "x" And f = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (g = "x" And h = "x" And i = "x") ThenMsgBox ("Has ganado el TRIQUI") Else If (a = "x" And d = "x" And g = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (b = "x" And e = "x" And h = "x") Then MsgBox ("Has ganado elTRIQUI") Else If (c = "x" And f = "x" And i = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (a = "x" And e = "x" And i = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (c ="x" And e = "x" And g = "x") Then MsgBox ("Has ganado el TRIQUI") Else If (c = "x" And e = "x" And g = "x") Then MsgBox ("Has ganado el TRIQUI") Else: MsgBox ("Has perdido elTRIQUI") If (a = "o" And b = "o" And c = "o") Then
MsgBox ("Has ganado el TRIQUI") Else If (d = "o" And e = "o" And f = "o") Then MsgBox ("Has ganado el TRIQUI") Else If (g = "o" Andh = "o" And i = "o") Then MsgBox ("Has ganado el TRIQUI") Else If (a = "o" And d = "o" And g = "o") Then MsgBox ("Has ganado el TRIQUI") Else If (b = "o" And e = "o" And h = "o")Then MsgBox ("Has ganado el TRIQUI") Else If (c = "o" And f = "o" And i = "o") Then MsgBox ("Has ganado el TRIQUI") Else If (a = "o" And e = "o" And i = "o") Then MsgBox ("Has ganadoel TRIQUI") Else If (c = "o" And e = "o" And g = "o") Then MsgBox ("Has ganado el TRIQUI") Else If (c = "o" And e = "o" And g = "o") Then MsgBox ("Has ganado el TRIQUI") Else:MsgBox ("Has perdido el TRIQUI") End If End If End If End If End If End If End If End If End If End If End If End If End If End If
End If End If End If End If
End Sub
Regístrate para leer el documento completo.