关于for和if条件没有运行的疑问

Sub mh()
Dim i&,R#,R2#,mm#,hh#,nn#,pi#,sh#,sg#,t#,k#,u1#,v1#,p1#,p2#,u2#,u#,v2#,v#,Fhh#
R=0.625
R2=0.555
mm=0.016
hh=0.5
nn=6.25
pi=3.1415926
for i=1 to 1500
  if abs(Fhh)>0.001 or sh>15 or sg>190 then
      t=mm*R^2/(2*R2)  
      k=1-cos(hh)
      u1=(3*SIN(hh)-3*hh*COS(hh)-(SIN(hh))^3)/k
      v1=(3*hh-3*SIN(hh)*COS(hh)-2*(SIN(hh))^3*COS(hh))/k   
      P1=6*nn*PI*R2/R^2
      P2=12*nn*PI*(R2)^3/R^4
      u2=-p1*t*COS(hh)/k
      u=u1+u2
      v2=p2*t/k
      v=v1+v2
      Fhh=u/v+0.237385
      sh=12*1142/(v*1000*R^3)
      sg=nn*sh*(R2/R+cos(hh))/k
      hh=hh+0.001*i^0
   end if
next i
end sub
我运行结果没有满足if后面的条件，
请大侠给看看

这个小程序是实现：通过if后面的三个条件abs(Fhh)>0.001 or sh>15 or sg>190
实现hhzhujian 增加，知道最终满足要求
请各位大侠给与指导