Недочеты в программе

[Fobos]

Данная программа должна вычислять данные при движении тела брошенного под углом к горизонту с учетом сил сопротивления ...
Но данные не выводятся, в чем ошибка ?

//Расчет с учетом силы сопротивления, пропорциональной v
if (ComboBox2->ItemIndex==1)
 {
    ResultTable2->Caption="         V           |                h                                |                           t             |                           s                               |                          a\n";
    float k,m;
    m=0.01; k=0.00001;
    int h0=(Edit6->Text).ToInt();
    double b=(Edit7->Text).ToInt();
    int v0=(Edit8->Text).ToInt();
    double t0=(2*v0*sin(b))/9.80665;
    float t=0;
    double a,dt,s,y,ax,ay;
    float net=t0/25;
    int h=h0;
    double Vx=v0*cos(b);
    double Vy=v0*sin(b);
    int V=v0;
    while (h>0);
     {
     dt=0.001;
     Vx=Vx-ax*dt;
     Vy=Vy-ay*dt;
     V=sqrt(Vx*Vx+Vy*Vy);
      ax=k*Vx/m;
      ay=9.80665-k*Vy/m;
      if (a>0)
      a=sqrt(ax*ax+ay*ay);
     else a=0;
     h=h+V*dt+a*dt*dt/2;
     Vx=Vx-ax*dt;
     Vy=Vy-ay*dt;
     V=sqrt(Vx*Vx+Vy*Vy);
         for (t=0; t<=t0; t=t+net)
      {
         s=Vx*t;
              ResultTable2->Caption=ResultTable2->Caption+V+"    |      "+h+"      |     "+t+"     |   "+s+"    |   "+a+"\n";
 ;
         }
     }
  }