1樓：永弘壯
private store()
private sub command1_click()for m = 0 to 9
begin:
randomize
' 對隨機數生成器做初始化的動作。
i = int(rnd * 20 + 1)'生成 1 到 20 之間的隨機數值
for n = 0 to m
if store(n) = i then goto begin'如果有相同數就重新生成一個
next n
'如果沒有重複就記錄到陣列
store(m) = i
next m
end sub
private static sub command2_click()
static a as integer
if a=10 then
msgbox "沒有了！"
exit sub
end if
? store(a)
a=a+1
end sub
2樓：匿名使用者
以下是完整**：
dim store(9)
private sub command1_click()static k as integer
if k = 10 then
msgbox "已顯示完10個數，再按就不會有反應了"
exit sub
end if
print store(k)
k = k + 1
end sub
private sub form_load()for m = 0 to 9
begin:
randomize
' 對隨機數生成器做初始化的動作。
i = int(rnd * 20 + 1)'生成 1 到 20 之間的隨機數值
for n = 0 to m
if store(n) = i then goto begin'如果有相同數就重新生成一個
next n
'如果沒有重複就記錄到陣列
store(m) = i
next m
end sub
3樓：
private sub command1_click()static m&, store&(9)
dim i&, n&, s$
if m <= 9 then
randomize
doi = int(rnd * 20 + 1)for n = 0 to m
if store(n) = i then exit fornext
if n > m then
store(m) = i
print "" & i;
if m < 9 then print ",";
m = m + 1
exit sub
end if
loop
end if
end sub
心電圖，哪位幫忙看下，哪位懂的朋友幫忙看下以下這個心電圖正常不？
就一個竇性心律不齊，這個在年輕人很常見，和你的呼吸運動有關係，不屬於病理性，隨著年齡的增長，大部分都會逐漸消失，不會引起任何不適。有些人招工或者徵兵體檢的時候不想要出現竇性心律不齊的話你可以在拉心電圖的時候嘗試吸氣後屏住呼吸，可以去除呼吸對心律的影響 你的心電圖是正常的！出現疼痛的原因可能是肋間軟骨...
關於維度的想法，幫忙看看
不對，人類只能感受最多三維的空間，甚至連四維時空都無法想象，但是我們可以去計算，在方程裡理解額外維，其實宇宙共有11維，9維空間，1維時間，你也許會問還有一維呢？這一維是愛德華 威滕添進去的，有了這一維，五種不同的弦理論才能被統一，所以我們認為宇宙必須要有11維。至於平行宇宙，是現代物理學家不得不接...
懂法律的朋友幫忙看看
閒雲馬紅 一 宣告失蹤 經利害關係人申請，由人民法院對下落不明滿一定期間 一般情況為二年 的人宣告他為失蹤人的一種制度。同樣的，宣告死亡就是，經利害關係人申請，由人民法院宣告下落不明滿一定期間 一般情況是四年 因以外事故下落不明的，從事故發生之日起滿2年 的自然人為死亡的一種制度。申請宣告死亡的利害...