UC知道Visual FoxPro程序设计 考试急求
来源：百度知道 编辑：UC知道 时间：2024/04/29 18:35:06
四、写出下列程序的运行结果（每题5分，共10分）
1、 STORE 1 TO A,I,S
T=0
DO WHILE I<=4
T=T+S
S=S*10+A
I=I+1
ENDDO
? "T=",T
RETURN
本程序的运行结果是:
2、set talk off Procedure sub
X=20 Public z
Y="同学们，你们好！" Local x
Do sub X=100
? "x=",x, "y=",y, "z=",z Y="how are you"
Set talk on Z=sqrt(x)
Return Return
本程序的运行结果是：
得
分
五、程序设计题（每题10分，共20分）
1、编写程序，求1到50之间所有偶数的和并显示。
2、以下是利用过函数计算组合数C=m!/(n!*(m-n)!)的部分程序，请在两行“*”号之间补充语句，使之成为一个完成的程序。
&& 计算C=m!/(n!*(m-n)!)的主程序
clear
input "m:" to m
input "n:" to n
? "组合数为：",factoral(m)/
1、 STORE 1 TO A,I,S
T=0
DO WHILE I<=4
T=T+S
S=S*10+A
I=I+1
ENDDO
? "T=",T
RETURN
本程序的运行结果是:
2、set talk off Procedure sub
X=20 Public z
Y="同学们，你们好！" Local x
Do sub X=100
? "x=",x, "y=",y, "z=",z Y="how are you"
Set talk on Z=sqrt(x)
Return Return
本程序的运行结果是：
得
分
五、程序设计题（每题10分，共20分）
1、编写程序，求1到50之间所有偶数的和并显示。
2、以下是利用过函数计算组合数C=m!/(n!*(m-n)!)的部分程序，请在两行“*”号之间补充语句，使之成为一个完成的程序。
&& 计算C=m!/(n!*(m-n)!)的主程序
clear
input "m:" to m
input "n:" to n
? "组合数为：",factoral(m)/
第1题答案：t= 1234
第2题答案：x= 20 y= how are you z= 10.00
编程第一题：
s=0
t=2
do while t<=50
s=s+t
t=t+2
enddo
? "s=",s
return
程序二：
function factoral(x)
t=1
p=1
do while t<=x
p=p*t
t=t+1
enddo
return p
end function
我提交的答案一定正确，因为我在vfp环境下上机验证过了。