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

Vfp题库3:程序设计基础1

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

do tub with 6,6,3,b ?b

procedure tub

PARAMETER A,B,C,D B=A* A-4 *C* D DO CASE CASE B<0 B=120 CASE B>0 B=210 CASE B=0 B=100 ENDCASE RETURN

分析: 在程序开始对A,B赋值为3,对C,D赋值为2。然后把实参A、B、C、D传递给予程序TUB,根据表达式B=A*A-4*c*D

计算出结果为-7,所以输出结果为120,同样,以下程序执行时,根据表达式的计算结果,输出依次为1和6。

答案:结果显示在3行上,依欠为120,1,6

[例25] 根据输入的半和径值,计算圆的面积,请将程序填写完整。 程序: CLEAR R=0 SM=0

@12,15 SAY “输入圆半径” CET R READ IF R=0 EXIT ENDIF ————

@16,16 SAY“圆的面积为:”+ ALLTRIM(STR(SM)) ENDDO RETURN

计算圆面积的函数: FUNCTION AREA PARAMETERS A S=3.1415926*A*A

RETURN

分析:该语句是实现对计算圆面积函数的调用,返回值赋给变量SM。这个程序所使用的是一个自定义函数,自定义函数和

子程序的区别就是自定义函数必须返回一个函数值,而子程序没有这个限制。自定义函数的编辑方法和子程序的编辑方法相同,只是要把子程序文件名改为自定义函数名。

需要注意的几点是:自定义函数能以独立的文件存储,也可包含在调用程序中作为它的一部分。如果[FUNCTION<函数名>]缺省,这表示该函数是一个独立的文件。另外,自定义函数不能与系统函数同名,也不能与内存变量同名。 答案:SM=AREA(R)

例26 当变量I在奇偶之间变化时,求出下面程序的输出结果。 程序: CLEAR I=O

DO WHILE I<10 IF INT(I/2)=I/2 ?\ ENDIF ?\ I=I+1 ENDDO

分析:该程序应用的是循环和条件嵌套的结构。 答案:W,T,T连续显示5次

[例27] 填空完成下列程序,仅接受输入Y和N的程序,否则程序结束。 DO WHILE .T.

WAIT \请输入Y/N\TO AS

IF UPPER(AS)< >\UPPER(AS) < >\ (1) ELSE (1) ENDIF ENDDO

分析:该例是一个条件循环,选用EXIT是强制推出循环条件,执行它能够立即跳出循环,执行ENDDO

后面的语句。选用LOOP则是一种强制缩短循环的语句,其功能是终止本次循环体语句的执行,把控制转到

循环结构的开始。

答案: (1)EXIT,(2)LOOP

[例28] 当变量X的值变化时,依次显示其结果,注意循环体内的LOOP和EXIT语句。 程序: CLEAR X=3

DO WHILE .T. X=X+1

IF X=INT(X/3)*3 ?x ELSE

LOOP ENDIF IF X>10 EXIT ENDIF ENDDO RETURN

分析:INT()是取整数函数

如果循环体内有LOOP命令,那么当晕到LOOP时,就结束循环的本次执行,不再执行其后的语句,而是转回DO WHILE 处重新判断条件。

如果循环体包括EXIT命令,那么当遇到EXIT时,就结束该循环语句的执行,转去执行ENDDO后面的语句。

通常LOOP或EXIT出现在循环体内嵌套的选择语句时,根据条件来决定是LOOP回去,还是EXIT出去。 答案:依次显示为:6,9,12

[例29] 填空完成下列程序,求数绝对值的程序。 INPTU’请输入一个数:‘TO X

?STR(X)+“它的绝对值是:’+STR(f(x)) FUNCTION F (1) ——— IF T>=0 T=T ELSE T=-T ENDIF RETURN T

分析:FUNCTION 是一个子函数,语句PARAMETERS是定义子函数里面的变量。

[例30] 如果说用DO命令来执行查询文件、菜单文件、那么<文件名>中必须名含——————。 分析:VISUAL FOXPRO 程序文件通过编辑、连接,可以产生不同的目标代码文件,这些文件具有不同的文件名。

当用DO 命令执行程序文件时,如果没有指定扩展名,系统将按下列顺序寻找程序文件的源代码或某种目标代码文件

执行:.EXE->.APP->.FXP->.PRG;但是用DO命令来执行查询文件、菜单文件时,那么<文件名>中必须包括扩展名。

答案:扩展名(.QBR或.MPR)

[例31]打开银行客户关系表,输入一个控制口令控制程序的执行,若口令为1,则把

“银行代码”为“001”的所有记录加上删除标记;若口令为2,把“银行代码”为“002”的所有记录 加上删除标记;若口令为3,把“银行代码”为“003”的所有记录加上删除标记。请将程序填写完 整。 程序: CLEAR

USE银行客户关系表EXCLUSIVE BROWSE LAST

WATT“请输入你的选择:(1-3)”TO yhdm DO CASE CASE (1)

DELETE ALL FOR 银行代码=“001” BROWSE ALL FOR银行代码=“001” RECALL CASE (2)

DELETE ALL FOR 银行代码=“002” BROWSE ALL FOR 银行代码=“002” RECALL CASE (3)

DELETE ALL FOR 银行代码=“003” BROWSE ALL FOR 银行代码=“003” RECALL ENDCASE BROWSE USE

分析:该程序执行时,依次判断语句中列出的条件,当碰到取值为真时就执行该条件下的语句序列。 答案:(1)yhdm=“1”,(2)yhdm=“2”,(3)yhdm=“3”

例32 按银行帐号显示存款记录,如果该帐号不存在,则会显示空记录,请将该程序 填写完整。

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