VB escribe un programa de lotería
el comando1 se usa para seleccionar aleatoriamente, se muestra el texto2
el texto1 se usa para ingresarlo usted mismo
el comando2 se usa para juzgar
Idea básica: Suponga continuidad Si un bit es igual, después de la verificación, si es verdadero, se obtendrá el resultado. Si es falso, suponga que a=a-1 bit es igual... hasta que a=0<. /p>
También puedes ingresar datos de texto2 tú mismo para verificar el programa.
Este programa no está limitado a 7 dígitos
Private Sub Command2_Click()
Dim a$, b$, i, j, k
a = CStr(Text1)
b = CStr(Text2)
Para i = Len (a) A 1 Paso -1
Para j = 1 A Len(a) - i 1
Si Mid(a, j, i) = Mid(b, j, i) Entonces
k = i
Salir para
Fin
Siguiente
If k lt; gt; 0 Luego salga para
Siguiente
Imprimir k, Mid(a, j, i)' genera el mismo número de dígitos y el mismo número
If len(a) 1-kgt; 5 Entonces
MsgBox "Lo siento, no hay premio"
Else
MsgBox Len(a) 1 - k amp; "Juzga el premio"'Juzga el premio
End If
End Sub
Private Sub Command1_Click()
a = CStr( Texto1)
Texto2 = 10 ^ (Len(a) - 1) Int(Rnd * 0.9 * 10 ^ Len(a))
End Sub