Crea un programa que muestre en un listbox todos los numeros pares entre 2 limites que determine el usuario.
Mi problema es que no me respeta el limite superior.
 Private Sub Vw_Click()
Dim x1 As Integer
Dim y1 As Integer
Dim z As Integer
r = 2
x1 = Val(x.Text)
y1 = Val(y.Text)
For x1 = r To y1

z = x1 * r
c.AddItem z
Next x1
End Sub

Al ejecutar mi programa e ingresar un numero se vuelve loco el programa ya que imprime el resultado una infinidad de veces sin parar.
(Estoy utilizando C++ Builder 6)
Si el programa esta en desorden es que soy principiante.
Este es mi codigo:

#include <conio.h> #include <stdio.h> main() { int x, z; long int factorial; clrscr(); printf("Que factorial quieres?"); scanf("%d", &x); while(x!=0) {factorial=1; for (z=1; z<=x; z++) factorial=factorial*z; printf("%d x %d= %d ",x,z,factorial*z); }; getch(); return 0; }

Programa que introduzca 3 numeros enteros y aparescan ordenados primero de menor a mayor y despues de mayor a menor.¿Cual es mi error?

program numeros;
uses
  crt,dos;
var
  num1num2,num3:integer;
Begin
clrscr;
writeln('ingresa un numero');
readln(num1);
writeln('ingresa otro numero');
readln(num2);
writeln('ingresa otro numero');
readln(num3);
if (num1<num2) and (num1<num3) then men:=num1 else may:=num3
write(<<<Oprime cualquier tecla para continuar>>>);
repeat until keypressed
end.

como puedo hacer un sistema de votos es que lo intente con while pero no pasa de 1 la estadistica