www.pudn.com > vc61667782466611111.rar > MFC46C.tmp

/*这是一个测试程序*/ 
 
 
Program abc; 
  Integer x,y,z; 
  Real a,b; 
  Procedure ab(Var m,n:Integer;t:Real); 
    Begin 
      t:=n+m; 
      If m>n then n:=m else t:=m; 
      While n4 then z:=0; 
  y:=219;  z:=37;  x:=y*z 
End.