VFP主窗口    *显示较大数 set talk off input "please input a number to x:" to x input "please input a number to y:" to y if y>=x max1=y else max1=x endif ?"max1=",max1 set talk on return *计算1+2+...+10 set talk off x=0 y=1 do while y<=10 x=x+y &&累加 y=y+1 &&改变循环条件 enddo ?"x=",x ?"y=",y set talk on return *main.prg set talk off ?"99999" do p1 ?"88888" do p2 ?"55555" set talk on return proc p1 &&定义过程p1 ?"#####" return proc p2 &&定义过程p2 ?"*****" do p1 ?"$$$$$" return