Visual Basic - AYUDA CON EXPLICACION

Como les explicarian este codigo a unos estudiantes de basico en visual basic


Option Explicit
Dim Palabra As String
Dim Errores As Byte
Private Sub cmdNuevo_Click()
NuevoJuego
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
JugarLetra UCase(Chr(KeyAscii))
End Sub
Private Sub Form_Load()
lblLetrasJugadas = ""
lblBienvenida = "¡Bienvenido!"
End Sub
Sub NuevoJuego()
Palabra = InputBox("Ingrese su palabra (10 letras max.):", "Palabra")
Palabra = UCase(Palabra)

lblLetrasJugadas = ""
Errores = 0
lblErrores = Errores

CargarPalabra
End Sub
Sub CargarPalabra()
Dim i As Integer

For i = 0 To lblLetras.UBound
lblLetras(i).Visible = False
Next i

For i = 1 To Len(Palabra)
lblLetras(i - 1).Tag = Mid(Palabra, i, 1)
lblLetras(i - 1).Caption = "_"
lblLetras(i - 1).Visible = True
Next i

End Sub
Sub JugarLetra(Letra As String)
Dim Termino As Boolean
Dim i As Integer
If InStr(Palabra, Letra) <> 0 Then
Termino = True

For i = 1 To Len(Palabra)
If lblLetras(i - 1).Tag = Letra Then
lblLetras(i - 1).Caption = Letra
End If

If lblLetras(i - 1).Caption = "_" Then
Termino = False
End If
Next i
Else
Errores = Errores + 1
lblLetrasJugadas = lblLetrasJugadas & Letra
lblErrores = Errores
End If
If Errores = 6 Then
Call MsgBox("Perdiste", vbInformation, "Perdiste")
NuevoJuego
End If
If Termino Then
Call MsgBox("Ganaste", vbInformation, "Ganaste")
NuevoJuego
End If
End Sub
Sub SS()
If MsgBox("¿De veras desea salir?", vbYesNo, "Salir") = vbYes Then
End
End If
End Sub
Private Sub cmdSalir_Click()
Call SS
End Sub

Hola,

Lo siento pero no creo ke este foro este para "solucionarte" ese tema.

Suerte,

SMK