VFP主窗口 文件⑦)编辑啁)显示工具①)程序)项目@)口)帮助 x」 MODIFY COMMAND d: \xsgl\progs \e2a do d: \xsgl\progs\e2 国项目管理器-xsl 全部]数据文档类|代码其他回 MODIFY command d: \xsgl\progs\e2 新建 白数据库 白画 口x 画 ocourse *计算z=x*y set talk off 中的/本地视图 由鲁远程视图 移去 y=5 由③连擾 ?"z=,z & display z set talk on 路径: d: \xsel \dat a\course.dbf return Course Csel! Course) 记录:1/4 Exclusive 新建 文件类型 顶项目门 C数据库 C表〔r 新建文件Qx 查询Q 连接c C视图 C远程视图 向导(H) C表单) C报表 C标签〔L 程序 文本文件〖 取消 C菜单 帮助QD
VFP 主窗口
文件①)编辑)显示①工具①)程序)窗口帮助Q 项目管器xe1 全部数据|文档 为新的应用程序选择文件名和位置 项目名称E 母数据库 Id: kzsa'kxsel 项目文件E 中面⊙ cours d:izsalldesglxsapjx y 中的本BnP创项目录结构) 循环条件 连接 说明 路径 d: isel\data\course. dbf set talk on Mi crosoft Visual FoxPro向导 *显示较大数 set talk off input"ple a number to x. to x input"please input a number toy: "to y maxl-y endif ?maxl=" maxI set talk on 计算1+2+.+10 set talk off
*显示较大数 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
do while y<=10 X=x+y&&累加 =y+1&&改变循环条件 enddo ?"x=",x set talk on return maIn. prg set talk off ?"99999 do pl ?"88888 do p2 ?"55555 return proc pl&&定义过程pl ##### return proc p2&&定义过程p2 do pl SsSSS return
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