VFP 愛用者社區

[feining]

我需要用VFP写一个小程序：用数组定义10随机数从大到小排列后输出

[小賴]

這位仁兄你未指定隨機數之範圍
我假設你要的是 0 - 999

LOCAL nArray[10], nInt
FOR nInt = 1 TO 10
nArray[nInt] = INT(RAND() * 1000) && 產生 0 - 999 之亂數
NEXT

= ASORT(nArray,1,0,1)

FOR nInt = 1 TO 10
? nArray[nInt]
NEXT

[elleryq]

怎麼好像跟另外一個人問的一樣??

[feining]

唉,其实不用产生随机数啊,我的意思是,在键盘随便输入10个数,让他从大到小排列输出

[朱育興]

若是這樣的話，用 ASORT() 函數就可以了

[feining]

可怎么让他是用键盘输入数?

[feining]

其实说白了，我想写个程序，出这样一个效果：提示你输入10个数，然后计算机把你输的那10个数从大到小排出来
有哪位可以帮忙写一下啊,唉,感激不尽啊

[feining]

晕,竟然没人帮忙,5555555555555555555555

[syntech]

本人不再答看起來像作業的問題.

[feining]

我知道很简单,可实在不知道怎么把键盘输入的值附给数组,教教我吧,拜托

[小賴]

我實在被你的耐心感動了!
你的問題簡單到有上千種答案以致於其他狐友
無從答起,唯一大家都會使用的指令是
ASORT(), 其他程式碼都會因你需求不同
而有差異;以下程式碼是使用者親和力最差的一種方式
但也是不使用任何物件與OOP程式碼的唯一方式
如你是作業或考試所需那還好

LOCAL nArray[10], nInt
CLEAR
@ 09,20 SAY "請輸入排序前數據："
FOR nInt = 1 TO 10
nArray[nInt] = 0
@ 10+nInt, 20 SAY "第"+STR(nInt, 2) + "個數據 :" GET nArray[nInt]
NEXT
READ

= ASORT(nArray,1,0,1)
@ 22,20 SAY "排序後數據："

FOR nInt = 1 TO 10
@ 23 + nInt, 20 SAY "第"+STR(nInt, 2) + "個數據 :" + STR(nArray[nInt] )
NEXT