Negocio

Programa del dígito verificador de la cédula

Dim N1, N2, N3, N4, N5, N6, N7, N8, N9, N10 As Integer
Private Sub Command3_Click()
End
End Sub

Private Sub Text1_Change()
N1 =Val(Text1.Text)
Text2.SetFocus
End Sub
Private Sub Text2_Change()
N2 = Val(Text2.Text)
Text3.SetFocus
End Sub
Private Sub Text3_Change()
N3 = Val(Text3.Text)
Text4.SetFocus
EndSub
Private Sub Text4_Change()
N4 = Val(Text4.Text)
Text5.SetFocus
End Sub
Private Sub Text5_Change()
N5 = Val(Text5.Text)
Text6.SetFocus
End Sub
Private Sub Text6_Change()N6 = Val(Text6.Text)
Text7.SetFocus
End Sub
Private Sub Text7_Change()
N7 = Val(Text7.Text)
Text8.SetFocus
End Sub
Private Sub Text8_Change()
N8 = Val(Text8.Text)Text9.SetFocus
End Sub
Private Sub Text9_Change()
N9 = Val(Text9.Text)
N1 = (N1 * 2)
If (N1 > 9) Then
N1 = N1 - 9
End If
N3 = (N3 * 2)
If (N3 > 9) ThenN3 = N3 - 9
End If
N5 = (N5 * 2)
If (N5 > 9) Then
N5 = N5 - 9
End If
N7 = (N7 * 2)
If (N7 > 9) Then
N7 = N7 - 9
End If
N9 = (N9 * 2)If (N9 > 9) Then
N9 = N9 - 9
End If
N10 = N1 + N2 + N3 + N4 + N5 + N6 + N7 + N8 + N9
If ((N10 > 10) And (N10 <= 20)) Then
N10 = 20 - N10
ElseIf ((N10 > 20) And (N10 <= 30)) Then
N10 = 30 - N10
Else
If ((N10 > 30) And (N10 <= 40)) Then
N10 = 40 - N10
ElseIf ((N10 > 40) And (N10 <= 50)) Then
N10 = 50 - N10
Else
If ((N10 > 50) And (N10 <= 60)) Then
N10 = 60 - N10Else
If ((N10 > 60) And (N10 <= 70)) Then
N10 = 70 - N10
Else
If ((N10 > 70) And (N10...