Ayuda a corregir el error·Programa VB para programar una calculadora simple·Pero no puedo calcularlo

No puedes hacer esto. Por ejemplo, cualquier múltiplo de 2 dividido entre 2 siempre dejará 0.

Encontré un programa en otro lugar, eche un vistazo:

Verificación de función privada (i como entero) como booleano

Para j = 2 a CInt (Sqr( i)) 1 'Circuito desde 2 hasta la raíz cuadrada de i

Si i Mod j = 0 Entonces 'Si el resto de i dividido por j es 0, significa que i no es un número primo

check = False 'Devuelve falso

Salir de la función 'Salir de este proceso

Finalizar si

Siguiente j

check = True 'El proceso finaliza sin salir, lo que indica que no puedo dividir todos los números desde 2 hasta la raíz cuadrada de i, es decir, i es un número primo y devuelve verdadero

Función final

Private Sub Command1_Click()

Atenuar i como entero

i = CInt(Text1.Text) 'Toma un número y conviértelo a un número entero

Si i Mod 2 = 0 Entonces 'Si es un número par

i = i - 1 'Toma el número impar más grande debajo de él, porque sólo los números impares pueden ser números primos

Else

i = i - 2 'De manera similar, es tomar el número impar más grande debajo de él

End If

Hacer hasta check(i) ' Repita hasta que check(i) sea verdadero, es decir, encuentre el número primo más grande

i = i - 2 'Reste 2 para que i siempre sea un número impar

Repita

Text2.Text = i 'Generar este número primo

End Sub

'Jejeje Lo copié y lo probé y funciona bien. Requiere dos cuadros de texto y uno. botón

Por favor consúltelo