vf中的程序的编写

新建一个程序（文件菜单——新建——程序——新建文件），写代码： input "请输入n的值:" to n s=0 for i=1 to n s=s+1/i next ?"1+1/2+1/3...+1/n=",s 然后，直接点击感叹号，保存并运行，图：

回答：1、select 设备的名称,启用日期 from 设备表 where 价格 >10000 2、Use SB copy to D:\SB2 Fields 编号,名称 3、Replace 价格 With 价格+50,部门 with 55 for 设备类型=主要设备 4、 select * from 设备表 where 设备类型="非主要设备" Delete 5、select * from 设备表 order by...

clea input "请输入n值：" to n p=1 for j=1 to n p=p*j endfor ?str(n)+"!= ",p

accept '输入个位数' to k n=len(k)DIMENSION M(10)DIMENSION S(n)M=' 'for i=1 to n-1 IF VAL(SUBSTR(K,I,1))>=VAL(SUBSTR(K,I+1,1))A=VAL(SUBSTR(K,I,1))-VAL(SUBSTR(K,I+1,1))ELSE A=9+VAL(SUBSTR(K,I,1))-VAL(SUBSTR(K,I+1,1))ENDIF M(I)=STR(A,1)S...

新建一个程序（文件菜单——新建——程序——新建文件），写代码： input "请输入a的值 : " to a input "请输入b的值 : " to b input "请输入c的值 : " to c if b>a t=a a=b b=t endif if c>a t=a a=c c=t endif if c>b t=c c=b b=t endi ? "交换后a,b,c...

简单的程序,代码如下:clea pas=space(3)a=0 do while .t.4,4 say '输入密码:' get pas read if uppe(pas)='AAA'clea 6,4 say '欢迎!'wait retu else a=a+1 if a=3 8,4 say '连续三次错误,退出系统!'retu endif 6,4 say '密码错误,重新输入'endif enddo ...

cstr=""cx=""input "汉字字符串等" to m n=LEN(m)for i=1 to n/2 cx=substr(m,2*i-1,2)cstr=cx+cstr endfor ?cstr 汉字字符输入需要加引号，英文半角 "汉字字符输入需要加引号"测试通过了,只输入汉字哟

1.将项目用到的数据表和表单加入项目中；2.选择主文件，可以为代码或表单，右键单击，“设为主文件”。设置了主文件连编时会自动搜索用到的文件；3.在项目管理器选“连编”，“WIN32可执行程序”，即可完成。

连编就是将你用vfp开发的项目中的所有文件，如表单、程序文件、图标等编译成一个可执行文件（.EXE）的过程。步骤一般如下：一、在本机运行exe文件的做法：⑴在项目中选中一个表单或prg文件，目的是作为主文件（启动文件）;⑵点击菜单"项目",选"设置主文件",选中的文件就为主文件;⑶在项目窗口中选"...

close all set safe off open database 工人工资 use 工资表 do while .not.eof()if 工资>=5000 update 工资 set 工资=工资*0.94 else update 工资 set 工资=工资*0.95 endif enddo set safe on close all 不用skip也行的，命令照常能执行，因为工资不是大于等于5000，就是小于5000，只要...