set talk off
set proc to SP
T=4
I=1
do while I<=5
do P1 with T,I
I=I+2
enddo
set proc to
return
*Sp.prg
proc P1
para X,R
S=X*R^2
?S
set talk on
return
求VF程序解释
答案:3 悬赏:20 手机版
解决时间 2021-02-21 19:08
- 提问者网友:情歌越听越心酸
- 2021-02-21 14:44
最佳答案
- 五星知识达人网友:何以畏孤独
- 2021-02-21 15:34
SET TALK OFF &&不显示命令结果
SET PROCEDURE TO SP &&打开过程文件SP
T=4
I=1
DO WHILE I<=5
DO P1 WITH T,I &&调用SP过程文件里的P1过程,T、I作为变量分别传给P1过程里的X、R
I=I+2
ENDDO
SET PROCEDURE TO &&关闭过程文件
RETURN
*以下内容单独保存为一个程序文件,文件名为Sp.prg
PROCEDURE P1
PARAMETER X,R
S=X*R^2
?S &&显示S的值
SET TALK ON &&显示命令结果
RETURN
ENDPROC
程序是想显示4分别乘以1的平方、3的平方和5的平方,分别是4、36、100。
SET PROCEDURE TO SP &&打开过程文件SP
T=4
I=1
DO WHILE I<=5
DO P1 WITH T,I &&调用SP过程文件里的P1过程,T、I作为变量分别传给P1过程里的X、R
I=I+2
ENDDO
SET PROCEDURE TO &&关闭过程文件
RETURN
*以下内容单独保存为一个程序文件,文件名为Sp.prg
PROCEDURE P1
PARAMETER X,R
S=X*R^2
?S &&显示S的值
SET TALK ON &&显示命令结果
RETURN
ENDPROC
程序是想显示4分别乘以1的平方、3的平方和5的平方,分别是4、36、100。
全部回答
- 1楼网友:笑迎怀羞
- 2021-02-21 16:52
程序分别计算4*(1、3、5)^2的值,程序运行后输出如下内容:
4
36
100
你主要是哪个语句不明白,再给你说明详细一点。
- 2楼网友:从此江山别
- 2021-02-21 16:44
你不给表,我就帮你做了表,名字为成绩表,字段三个,姓名,语文,数学,外语 use 成绩表 accept "姓名:" to xm select * from 成绩表 where 姓名==alltrim(xm) to screen accept "要修改的姓名为:" to gxm accept "要修改的科目为:" to gkm accept "修改该科成绩为:" to gcj replace 姓名 with gxm replace
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯