第一范文网 - 专业文章范例文档资料分享平台

Visual FoxPro程序设计教程(刘卫国版)课后习题答案

来源:用户分享 时间:2025/5/29 2:24:31 本文由loading 分享 下载这篇文档手机版
说明:文章内容仅供预览,部分内容可能不全,需要完整文档或者需要复制内容,请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ:xxxxxx 处理(尽可能给您提供完整文档),感谢您的支持与谅解。

?.k1+k2 RETURN

子程序:t2prg

PRIVATE.k1 k1=k2+″250″ ?.k1

RETURN.

“AB250” “ABAB”

(3).SET.TALK.OFF

CLEAR

STORE.1.TO.x STORE.20.TO.y DO.WHILE.x<=y

IF.INT(x/2)<>x/2

x=1+x^2 y=y+1 LOOP ELSE x=x+1 ENDIF ENDDO ?.x,y

SET.TALK.ON RETURN.

122.00 23

(4).主程序:z.prg

SET.TALK.OFF

STORE.2.TO.x1,x2,x3 x1=x1+1 DO.z1

?.x1+x2+x3 RETURN

子程序:z1prg

x2=x2+1 DO.z2 x1=x1+1 RETURN

子程序:z2prg

x3=x3+1

13

RETURN.TO.MASTER. 9

(5).SET.TALK.OFF

x=15 y=7

DO.sub.WITH.x,(y) ?.x,y RETURN

PROCEDURE.sub PARAMETERS.a,b a=a+b b=a-b RETURN.

(6).SET.TALK.OFF

x=9 y=13

z=fu(x,y) ?.z RETURN

FUNCTION.fu PARAMETERS.a,b a=a*b

RETURN.(a). 117

2..输入一个三位整数,将其反向输出。如输入326,输出623。 set talk off

input \请输入一个三位数\

b=100*mod(a,10)+10*mod(int(a/10),10)+mod(int(a/100),10) ?b return

3..输入学生成绩,若成绩大于80分,则输出“优良”,成绩小于60分,则输出“不及格”,否则输出“中等”。 set talk off

input \请输入学生成绩\if a>80 ?\优良\else if a<60 ?\不及格\ else

14

?\中等\ endif endif return

4..在学生表中,分别统计汉族学生和少数民族学生的人数。 set talk off use 学生表

count for 少数民族=.T. to a count for 少数民族=.F. to b ?\少数民族学生人数为\?\汉族学生人数为\return

5..假定有包含若干个记录的表文件c1.dbf,其结构是:f1(N,3,0),f2(N,3,0)。编写程序,其功能是把各记录中所有大于40的字段值累加起来,最后把累加的结果存入第一个记录的f2字段中。 set talk off use c1 a=0

do while .not. eof() if f1>40 a=a+f1 endif if f2>40 a=a+f2 endif continue enddo go top f2=a use return

6..一个自然数是素数,且它的数字位置经过任意对换后仍为素数,则称为绝对素数,例如13就是一个绝对素数。试求所有两位绝对素数。 set talk off for m=11 to 99

n=mod(m,10)*10+mod(int(m/10),10) if check(m) and check(n) ?m endif endfor

function check

15

parameters a flag=.t.

k=int(sqrt(a)) j=2

do while j<=k and flag if mod(a,j)=0 flag=.F. endif j=j+1 enddo

return flag

7..用过程方式求S=A!+B!+C!(其中A,B,C从键盘输入)。 set talk off

input \请输入第一个数到A\input \请输入第一个数到B\input \请输入第一个数到C\?\function ss parameter n m=1

for i=1 to n m=m*i endfor return m return

8..根据题目要求完善程序。

(1).通过字符串操作竖向显示“伟大祖国”,横向显示“祖国伟大”。

SET.TALK.OFF

STORE.″伟大祖国″.TO.var CLEAR n=1

DO.WHILE.n<8 ?.SUBSTR(①) n=n+2 ENDDO ?.(②)

??.SUBSTR(var,1,4) RETURN

① var,n,n+1

② substr(var,5,8)

16

Visual FoxPro程序设计教程(刘卫国版)课后习题答案.doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印
本文链接:https://www.diyifanwen.net/c3sf8c6tkab2r4yi9c25s_4.html(转载请注明文章来源)
热门推荐
Copyright © 2012-2023 第一范文网 版权所有 免责声明 | 联系我们
声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
客服QQ:xxxxxx 邮箱:xxxxxx@qq.com
渝ICP备2023013149号
Top