Red de conocimiento informático - Conocimiento del nombre de dominio - Buscamos urgentemente programación vb6.0~~~¡Se utilizará mañana por la mañana! ¡Por favor ayuda!

Buscamos urgentemente programación vb6.0~~~¡Se utilizará mañana por la mañana! ¡Por favor ayuda!

Dibuje un cuadro de texto TEXTO1 en el formulario y cambie la propiedad múltiple a VERDADERO.

Private subform_Load()

Dim ArrayInt() es un número entero

Dim CheckNum es un número entero

Dim número primo es un número entero

CheckNum = Val(InputBox("Ingrese un número", "Juicio de números primos"))

PrimeNo = 1

ReDim retiene ArrayInt(PrimeNo) como Entero

ArrayInt(1) = 2

Para j = 3 a CheckNum

Flag = j

Para I = 1 a Prime

Si (j Mod ArrayInt(I) = 0) entonces

Bandera = j - 1

Salir para...

Terminará si...

Siguiente yo

Si (Flag = j) Entonces

PrimeNo = PrimeNo + 1

ReDim Preserve ArrayInt(PrimeNo)

ArrayInt(PrimeNo) = j

Terminará si...

Siguiente j

Texto1. texto = " "

Texto1. Texto = Texto1. Los números primos en el texto & "in" & CheckNum & " * * * son " & PrimeNo & ", respectivamente " + vbCrLf.

Para que I = 1 sea primo

Texto1. Texto = Texto1. Text & ampi& amp" th " & ampArrayInt(I) y ampvbCrLf

Mostrar mensaje como cadena

Mensaje = Str(CheckNum)

If (CheckNum = ArrayInt (I)) Entonces

mensaje = mensaje & amp "Este es un número primo"

Otro

Mensaje = mensaje & amp "no es un número primo " !"

Terminará si...

Siguiente yo

Mensaje MsgBox, vbOKOnly, "Juicio de números primos"

Conector final