[200 puntos] Datos de verificación de VB
'No es necesario configurar nada más, el programa ajustará automáticamente el tamaño y Ubicación.
Opción explícita
Atenuar I como byte, J como byte, K como byte, L como byte
Atenuar A como cadena, S(1 a 9) Como byte
Atenuar Yz como booleano
Subcomando privado1_Click()
Si Command1.Caption = "Salir" Entonces
Finalizar
Else
Command1.Caption = "Salir" Luego
Fin
Else
Command1.Caption = " Salir" Luego
Fin
Else
Command1.Caption = "ExitCaption = "Salir"
Yz = True
Para I = 1 a 9
L = 1
Para J = 1 a 81
Si (J - 1)\ 9 + 1 = Entonces
'K = J Mod 9
S(L) = Val(Text1(J).
L = L + 1
Finalizar si
Siguiente
Si PD(S()) = Falso entonces
Para J = 1 a 81
Si (J - 1) \ 9 + 1 = I Entonces
'K = J Mod 9 + 1
Text1(J).BackColor = vbWhite
Finalizar si
Siguiente
Yz = False
Finalizar si
Siguiente
Para I = 1 a 9
'L = 1
Para J = 1 a 81
Si J Mod 9 = I - 1 Entonces
K = ( J - 1)\ 9 + 1
S(K) = Val(Text1(J).
Finalizar si
Siguiente
Si PD(S()) = Falso Entonces
Para J = 1 a 81
Si J Mod 9 = I - 1 Entonces
'K = (J - 1) \ 9 + 1
Texto1(J).BackColor = vbWhite
Fin si
Siguiente
Yz = Falso
Finalizar si
Siguiente
Para I = 1 a 3
p> Para J = 1 a 3
L = 1
Para K = 1 A 81
Si ((K -)1) \ 9) \ 3 + 1 = I Y (K Mod 9) \ 3 + 1 = J Entonces
S(L) = Val(Text1(K).> Finalizar si
Siguiente
Si PD(S()) = Falso Entonces
L = 1
Para K = 1 a 81
Si ((K - 1
) \ 9) \ 3 + 1 = I Y (K Mod 9) \ 3 + 1 = J Entonces
Text1(K).BackColor = vbWhite
L = L + 1
Finalizar si
Siguiente
Yz = False
Finalizar si
Siguiente
Siguiente
Si Yz Entonces
Texto1(0 ).Text = "Correcto!"
De lo contrario
De lo contrario
Texto1(0 ).Text = "¡Error! Alto = 550
Comando1.Ancho = 750
Comando1.Izquierda = 0
Comando1.Arriba = 3450
Command1.Caption = "Comenzar"
Texto1(0).Width = 2600
Texto1(0).Height = 550
Texto1(0).Left = 750
Texto1(0).Top = 3450
Texto1(0).Caption = "Inicio"
End Sub
Subtexto privado1_ KeyPress(Índice como entero, KeyAscii como entero)
A = Texto1(Índice).Text
Si KeyAscii < 49 o KeyAscii > 57 Entonces
KeyAscii = 0
Salir Sub
Else
Texto1(Index).Text = ""
Finalizar si
Si A <> Text1(Index).Text Then HfColor
Command1.Caption = "Inicio"
Fin Sub
Private Sub HfColor()
Para I = 1 a 81
J = ((I - 1) Mod 9) + 1
K = ((I - 1)\ 9) + 1
Si J <= 3 Entonces
Si K <= 3 Entonces
Texto1(I).
Si K <= 3 Entonces
Texto1(I).BackColor = &H109347
De lo contrario, Si K <= 6 Entonces
Texto1 (I).BackColor = &H8819BB
Finalizar si
Finalizar si
Siguiente
Fin Sub
Función PD(A() como byte) como booleano
Dim Pd1 como byte, Pd2 como byte
Para Pd1 = 1 a 8
Para Pd2 = Pd1 + 1 a 9
Si A(Pd1) = A(Pd2) entonces
PD = False
Salir de la función
Fin Si
Siguiente
Siguiente
PD = Verdadero
Función final