DIM N AS INTEGER	'Opcional en QBasic

N=1
WHILE N<=10
	PRINT N
	N=N+1
WEND

N=1
DO
	PRINT N
	N=N+1
LOOP UNTIL N=10

FOR N=1 TO 10
	PRINT N
NEXT

DIM N AS INTEGER	'Opcional en QBasic

N=2
WHILE N<=22
	PRINT N
	N=N+2
WEND

N=2
DO
	PRINT N
	N=N+2
LOOP UNTIL N=22

FOR N=2 TO 22
	PRINT N
NEXT

INPUT "Escribe el número del DNI: ", dni
PRINT "La letra es: "; MID$("TRWAGMYFPDXBNJZSQVHLCKE", (dni MOD 23) + 1, 1)

dim c as long
dim rojo, verde, azul as byte

'''''' suponemos que la variable c contiene el color a descomponer

rojo = (c Mod 256)
verde = (Int((c Mod 65536) / 256))
azul = (Int(c / 65536))

FOR N = 1 TO 100
	IF N MOD 10 <> 0 PRINT N
NEXT

DIM N, NUMERO AS INTEGER
DIM FACTORIAL AS LONG
INPUT "Escribe el número (1 a 50): ", NUMERO
IF NUMERO<1 OR NUMERO>50
	PRINT "NÚMERO NO VÁLIDO"
ELSE
	FACTORIAL = 1
	FOR N = 1 TO NUMERO
		FACTORIAL = FACTORIAL * N
	NEXT
	PRINT "El factorial de"; NUMERO ;"es; FACTORIAL
ENDIF

DIM NUMERO, N , PRIMO AS INTEGER     'En QBasic no hay tipo boolean, se usa entero. En VB sí
INPUT "Escribe el número: ", NUMERO
PRIMO=TRUE

FOR N = 2 TO NUMERO -1
	IF NUMERO MOD N =0 THEN PRIMO = FALSE
NEXT

IF PRIMO THEN
	PRINT "Es un número primo"
ELSE
	PRINT "No es un número primo"
ENDIF

DIM N, SUMA, MAX, MIN, AUX AS INTEGER

MIN=32767

PRINT "Escribe 20 números"
FOR N=1 TO 20
	INPUT N ; "º: ", AUX
	SUMA = SUMA + AUX
	IF AUX > MAX THEN MAX = AUX
	IF AUX < MIN THEN MIN = AUX
NEXT

PRINT "La suma es "; SUMA
PRINT "El mayor es "; MAX
PRINT "El menor es "; MIN