vb Encuentra números primos hasta 100

Código:

Private Sub Command1_Click()

Me.Cls

Dim yn As Boolean 'True significa que es un número primo

Atenuar i como entero, j como entero, x como entero

Para i = 1 a 100

yn = Verdadero 'Si es verdadero, ¿lo significa? es un número primo, de lo contrario es No, por defecto es un número primo primero

Para j = 2 Para i - 1 'El número primo debe tener tamaño 1, por lo que el ciclo comienza desde 2, y el El número primo no se incluye a sí mismo, por lo que el valor final del bucle disminuye en 1

Si i Mod j = 0 Entonces yn = False 'Si es divisible, no es un número primo

Siguiente j

Si yn = True Entonces imprime i; 'Si es un número primo, genera números primos en el formulario

Siguiente i

End Sub

Efecto operativo:

Información ampliada:

uso de impresión

print(x, y)

Equivalente a

import sys

sys.stdout.write(str(x ) '' str(y) '\n')

Sintácticamente hablando, llamar a la función de impresión de python3.0 tiene la siguiente forma:

print([object,.. .][, seq=''][, end='\n'][, file =sys.stdout])

seq inserta una cadena entre el texto de cada objeto, si no hay final, por defecto es un solo espacio. Pasar una cadena vacía siempre delimitará el final. p>

end es una cadena agregada al final del texto impreso. Si no se pasa ningún final, el valor predeterminado es un carácter \nnueva línea. Pasar una cadena de control evitará pasar a la siguiente línea de entrada al final del texto impreso; la siguiente impresión permanecerá adjunta al final de la línea de salida actual.

file especifica el archivo, flujo estándar u otro objeto similar a un archivo al que se enviará el texto; si no se pasa, el valor predeterminado es sys.stdout. Se puede pasar cualquier objeto con un método de escritura (cadena) similar a un archivo, pero el archivo real ya debería estar abierto para su salida.