Visual FoxPro 编程题,求答案

老师留了3道作业题,要求自己编程,我搞了很久,总是无法正常运行,求教高人指点。
1、某数组有10个元素,值由计算机随机产生,要求将前五个元素与后五个元素对换。即第一个元素与第十个元素互换,第二个与第九个……输出数组对换后各元素的值。
2、求任意三个数a,b,c的最大值
3、求半径为任意值的圆的面积和周长
再补充一下,这三个题都是通过建立新表单,并在表单中添加各种控件来完成的,不是在命令窗口中输入命令。
还有第一个题是用表单的相关知识来解答,第二三个题是利用自定义属性的知识解答。一开始没说清楚,不好意思~~~

第1个回答  2010-06-08
1.
dime a(10)
?"对换前各元素的值是:"
for i=1 to 10
a(i)=int(rand()*1000)
??a(i)
endfor

for i=1 to 5
t=a(i)
a(i)=a(11-i)
a(11-i)=t
endfor
?"前五个与后五个元素对换后:"
for i=1 to 10
??a(i)
endfor
return

2.
clear
input "a=" to a
input "b=" to b
input "c=" to c
?"三个数中最大数是:,"max(a,max(b,c))
return

3.
clear
set talk off
input "请输入圆的半径:" to r
?"圆的面积是:",pi()*r*r
?"圆的周长是:",2*pi()*r
set talk on
return
相似回答