¡Programación VB! Genere 100 números enteros aleatorios de tres dígitos y escríbalos en el archivo de secuencia Number.txt, luego lea los datos en Number.txt y muestre los números primos en el formulario de ventana;

Atenuar fn como entero, a como entero, s como entero

Aleatorio

s = 0

fn = FreeFile

Abra "c.\number.txt" para obtener salida como fn

Para i = 1 a 100

a = Int(900 * Rnd + 100)

Imprimir #fn, a

Si checknumb(a) Entonces s = s + 1

Siguiente i

Imprimir # fn, "*** Hay números primos:" & s

Cerrar #fn

MsgBox "Archivo generado"

End Sub

Subcomando privado2_Click()

Atenuar i

i = 0

fn = FreeFile

Abrir "c:\number. txt" Para entrada como fn

Hacer mientras no sea EOF(fn)

Entrada de línea #fn, a

Imprimir a,

i = i + 1

Si i = 10 Entonces imprima vbCrLf: i = 0

Bucle

Cerrar fn

End Sub

Sub privado Form_Load()

Command1.Caption = "Generar archivo"

Command2.Caption = "Leer archivo"

Fin Sub

Función privada checknumb(b como entero) como booleano

checknumb = True

Para i = 2 para Sqr( b)

Si b / i = Int(b / i) Luego checknumb = False: Salir para

Siguiente i

Finalizar función