1樓：用著追她
1、首先bai，我們
給主函式du先定乙個函式。
2、然zhi後dao我們編寫
版for迴圈語句。
3、然後我們編寫輸權出語句及範圍。
4、然後我們開始執行測試。
5、這句警告沒關係，如果不想看到可以新增呼叫數學函式。
6、這時我們便可以看到效果了。
2樓：匿名使用者
我給你優化了一下，由於最大99，所以只需要判斷到9就可以了，一回旦j=10，則為素數答
private sub ***mand1_click()randomize
dim i as integer, j as integer, n as integer, nl as integer, st as integer
for i = 1 to 10
n = int(rnd * 90 + 10)st = st & n & " "
for j = 2 to 9
if n mod j = 0 then exit fornext j
if j = 10 then
nl = nl + 1
end if
next i
text1.text = st
text2.text = nl
end sub
3樓：聽不清啊
已經copy改好了：
private sub ***mand1_click()randomize
dim i as integer, j as integer, n as integer, nl as integer, st as string
for i = 1 to 10
n = int(rnd * 99 + 10)st = st & n & " "
for j = 2 to n - 1
if n mod j = 0 then exit fornext j
if j = n then
nl = nl + 1
end if
next i
text1.text = st
text2.text = nl
end sub
4樓：匿名使用者
n = int(rnd * 90 + 10)
5樓：當你遇到豆腐
st as string
vb編寫乙個程式，利用隨機函式rnd生成10個10-99之間的整數，並計算其中素數的個數 10
6樓：匿名使用者
n= [ 10+int(90*rnd) ]st = [ st + " " + n ]forj=2 to [ n ]
[ n1=n1+1 ]
[ exit for ]
text1.text=[ st ]text2.text= [ n-n1 ]
7樓：
private sub ***mand1_click()dim i as integer, j as integer, n as integer, n1 as integer, st as string
for i = 1 to 10
n =＿
屬st = ＿
for j = 2 to ＿
if n mod j = 0 then＿
next
if j > sqr(n) then
_end if
next
text1.text = ＿
text2.text = ＿
end sub
利用隨機函式Rnd產生n個隨機兩位數
rnd函式。返回乙個包含隨機數值的。single。語法。rnd number 可選的。number 引數是。single 或任何有效的數值表示式。返回值。如果。number 的值是。rnd 生成。小於。每次都使用。number 作為隨機數種子得到的相同結果。大於。序列中的下乙個隨機數。等於。最近生成...
vb隨機問題
你用了乙個陣列，然後用隨機來重新亂序排列，思路是對的但是你忘記了，檢查，就是某個陣列是否出現過，你還要加乙個迴圈，判斷建議使用乙個臨時陣列tmp 先用隨機數確定，a 的位置 然後tmp a a 將陣列a 清空 然後再次迴圈式檢測a 是否為空 空就代表已經使用過了 另外一種方法是將a 陣列的位置，存入...
求VB大神幫忙寫隨機選數和猜數的VB程式謝謝
這個太簡單了自己做吧！我的理解是這樣 當使用者按 new game button 的按鈕時，程式隨機產生乙個1 100 之間的數字，然後使用者可以在 guesses textbox 裡輸入自己猜的數字，然後當 單擊 enter button 時，如果猜對了，在標籤label1裡顯示 correct ...