关于if条件运行问题，一次停止原因

Sub mh()
Dim 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.01024
hh=0.5
nn=6.25
pi=3.1415926
sh=15
sg=190
Fhh=10
if 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
    hh=hh+0.001
    sh=12*1142/(v*1000*R^3)
    sg=nn*sh*(R2/R+cos(hh))/k
   [A1]=mm
   [A2]=hh
   [A3]=sh
   [A4]=sg
end if
End Sub
请求大侠指点，上面程序运行一次就停止了
请大侠给找找原因

没错呀
也没有循环，当然就运行一次停止，不然你还想干什么？