1樓：匿名使用者
產生乙個 由 num 個在up 與 down 之間的數字組成的陣列，並且陣列中的數各不相同。
function getrnd(byval up as integer, byval down as integer, byval num as integer) as integer()
randomize
dim t() as integer, tmp as integer, i as integer, j as integer
redim t(num - 1)'讓t中元素個數為 num
t(0) = int(rnd * up - down + 1) + down'讓t(0)為up ~ down間的某隨機數
dim b as boolean
for i = 1 to num - 1
do while true
tmp = int(rnd * up - down + 1) + down'產生乙個up ~ down間的某隨機數
b = false
for j = 0 to i - 1
if tmp = t(j) then'判斷這個數是否已經在陣列裡了
b = true'已經在陣列裡
end if
next
if b = false then
t(i) = tmp'不在陣列裡的情況，把這個數儲存到陣列裡
exit do
end if
loop
next
'下面是用氣泡排序法，對陣列中的數字排序
for i = 0 to num - 2
for j = i + 1 to num - 1
if t(i) > t(j) then
tmp = t(i)
t(i) = t(j)
t(j) = tmp
end if
next
next
getrnd = t'返回值
end function
2樓：網海1書生
這個getrnd函式的作用是產生乙個指定範圍、指定數量、不重複，並且由小到大排列的隨機整數陣列
求翻譯一段日文，機翻實在看不懂入金扱其餘見補充）
gta小雞 未收到款項，作取消處理 根據本公司網售規定15條一項的記載，交易的取消原則上不予受理。因此，對於當前進行中的其他交易及此後新的訂單，若再次未能在期限內收到款項，視為不同意本公司網售條例，此後的訂單將不再受理，請您注意。 因未收到貴方的匯款，故我們這邊做訂單取消處理。根據本公司採購規程第1...
求解釋個笑話,看不懂，求乙個笑話的解釋，看不懂啊。。。
萬彩力靜秀 這個其實是要根據最近的實事來說的，有人好心幫助他人，卻被訛，雖說是乙個小盆友，到是卻也是一類人的縮影，在中國，千千萬萬個人都這樣！笑話，也其實在警告那些人，學會感恩，而不是去恩將仇報 冼花幸荷 哈哈，前段時間，有人在馬路上攙扶摔倒的老太太，被訛詐10幾萬，說被他撞倒的，還有乙個人也是這樣...
求助 彙編的一段程式
bcd2asc mov dptr,0507h 目標首位址。mov r7,dpl 儲存到r6,r7 mov r6,dph mov dptr,0500h 源首位址。mov r5,dpl 儲存到r4,r5 mov r4,dph mov r3,07h 位元組總數。baloop movx a,dptr 讀取乙...