VFP 愛用者社區

[TSAISUN]

一個dbf,裡面有100題測驗題，每個學生測驗題目，都由亂數產生任十題，也就是說，順序或題目，不一定相同
新手問題，請問那個先進，教幾段程式
誠摯的感謝您們

[saint]

所以就是要100選十,選過不能再選!


local ln_len as Integer,ln_count as Integer,ln_test_pos as Integer,ll_find as Boolean
ln_count = 10 &&要產生出來的題目
ln_len = 100 &&總題數
dimension la_tested[ln_count]
dimension test[ln_len]

for i=1 to ln_len
test[i] = i
next

for i=1 to ln_count
la_tested[i] = 0
next

local ln_test_loop as Integer
ln_test_loop = 1
do while .t.

ln_test_pos = ln_len + 1
do while ln_test_pos > ln_len
ln_test_pos = getRand()
enddo
for g = 1 to ln_count
if la_tested[g] == 0 then
for x=1 to ln_count
if la_tested[x] == ln_test_pos then
ll_find = .t.
exit
endif
next
if not ll_find then
wait window str(ln_test_loop)+ ":" + str(ln_test_pos) timeout 1
ll_find = .f.
la_tested[ln_test_loop ] = ln_test_pos
ln_test_loop = ln_test_loop + 1
exit
endif
endif
next
if ln_test_loop == 11 then
exit
endif
enddo




*------
function getRand()
local ln_rand as Integer
ln_rand = 0
do while ln_rand < 1
ln_rand = rand(0) * 100
enddo
return int(ln_rand) + 1
endfunc

[garfield]

寫作業時間到了.

出題( 10 ) &&--出10題


func 出題
lpara mcount

sele 題庫
總題數=recc()
dime 出題[總題數]
for i=1 to 總題數
出題[i]=i
next

* 從頭到尾打亂順序
for i=1 to 總題數
swapos = int(rand()*總題數)+1 &&--測試過 rand() 出現的亂數會比rand(0) 均勻
mtemp = 出題[i]
出題[i]= 出題[swapos]
出題[swapos] = mtemp
next

* 取出前面 mcount 筆題
for i=1 to mcount
go 出題[i]
? 出題[i], 顯示欄位資料
next

[marvin]

所以說只要作業題目好, 高手們還是會賞光的.

[小賴]

湊一下熱鬧 :

SELECT TOP 10 RAND() AS FRand, * FROM 題庫 ORDER BY 1

[syntech]

我習慣用 剪刀及漿糊

[garfield]

小賴兄才是高手啊, 一行程式就解決問題.
不過用 "洗八辣" 也不錯, 快過年咩!

[saint]

的確是!一行就可以解決!不過,我看到時就有想到一個問題,就是有可能會重復!如果你的電腦夠快,多執行幾次,就會發現..Orz

[KKKLYNN]

我也來試試
先宣告陣列
varray=int(100*rand())
gPos = ASCAN(garray,varray) && 搜索值
若存在則重新給值
滿十題後就依陣列內的值,從題庫取出題目
因為剛剛要寫個尾牙binggo遊戲卡,相同類別
以上您參考