Buscamos urgentemente programación vb6.0~~~¡Se utilizará mañana por la mañana! ¡Por favor ayuda!
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