怎样用VFP编写一个比较五个数大小的程序

我将此写成了一个函数，该函数要求 有5个参数，返回最大值，格式

getmax（参数1，参数2，参数3，参数4，参数5）

FUNCTION getmax

LPARAMETERS aa,bb,cc,dd,ee

CREATE TABLE temp (num N(10,4))

INSERT INTO temp (num) VALUES (aa)

INSERT INTO temp (num) VALUES (bb)

INSERT INTO temp (num) VALUES (cc)

INSERT INTO temp (num) VALUES (dd)

INSERT INTO temp (num) VALUES (ee)

SELECT MAX(num) as max_num FROM temp INTO CURSOR tmp

maxnum = tmp.max_num

USE

SELECT temp

USE

DELETE FILE temp.dbf

RETURN maxnum

ENDFUNC

当然，这样写纯粹是为了写vf程序，还可以使用冒泡法等算法实现

2、clear

?"1到100之内的所有素数："

s=0

for i=2 to 100

x=0

for j=2 to i-1

if i/j=int(i/j)

x=1

endif

endfor

if x=0

??alltrim(str(i))+space(2)

s=s+i

endif

endfor

?"它们的和是：",s

3、clear

?"1到1000之间所有奇数的和:"

s=0

for i=1 to 1000

if mod(i,2)<>0

s=s+i

endif

endfor

?s

4、command1的click代码：

if ALLTRIM(thisform.text1.value)="12345".and.alltrim(thisform.text2.value)="abcd"

messagebox("欢迎进入QQ世界")

else

messagebox("你的用户名或密码是错误的!")

endif

5、1）select * from STUDENT where 入学成绩>500

2)select 学号,姓名,专业信息 from STUDENT where substr(alltrim(姓名),1,2)="李"

3)count for 性别="女" to mm

6、CLEAR

SET UDFPARMS TO REFERENCE &&地址传递

DIME AAA(10)

FOR i= 1 TO 10

input "请输入第"+ALLTRIM(STR(i))+"个数：" to AAA(i)

NEXT

=MySort(AAA,10) &&调用冒泡排序函数.

i=1

?"从大到小排序结果为："

do while i<=10

??AAA(i) &&显示排完序后的数据.

i=i+1

enddo

RETURN

*冒泡排序函数.

*参数: pData: 传入数组, nCount:数组的大小.

function MySort

para pData, nCount

for i=1 to nCount

for j=nCount to i+1 step -1

if pData(j)>pData(j-1)

iTemp = pData[j-1]

pData(j-1) = pData[j]

pData(j) = iTemp

endif

endfor

endfor

endfunc

---