1樓：網海1書生
dim i%, j%, k%
randomize
doi = int(rnd * 90 + 10)for j = 2 to i \ 2
if i mod j = 0 then exit fornext j
loop while j < i \ 2
text2.text = i
2樓：匿名使用者
private sub form_click()dim i%, j%, k%
randomize
do while true
j = int(rnd * 90 + 10)for i = 2 to j - 1
if j mod i = 0 then exit fornext i
if i = j then text1.text = j: exit do
loop
end sub
3樓：匿名使用者
sub example()
dim i as integer
randomize
i = int(rnd() * 90 + 10)while (not issushu(i))i = int(rnd() * 90 + 10)wend
end sub
function issushu(num) as booleanissushu = false
dim j as integer
for j = 2 to num / 2
if (num mod j = 0) thenexit function
end if
next
issushu = true
end function
excel中自動生成 10到 10之間的隨機數，求公式
1，首先，開啟excel 程式，進入程式主介面中，選中一個單元格。2，接著，在選中的單元格中輸入以下的公式，回車確定。3，即可看到excel中自動生成隨機數。4，最後，繼續操作，即可看到另外一個生成的隨機數，問題解決。excel中，可以利用randbetween函式，生成一個範圍內的隨機數。軟體版本...
求個隨機數生成器，求一個簡易的隨機數生成器，數字1 90號，謝謝啦。。
ramdom rd new ramdom 例項化random 類的新例項rd for int 0 i 10 i for迴圈語句 次猜數 i 1,num 在控制檯上寫 第1次猜數 num這裡有問題吧,猜數遊戲生成的隨機數怎麼能顯示出來?int input 定義一個整型變數 do do while迴圈當...
vb程式設計題隨機產生不重複的A Z之間的英文字母，按字母順序輸出，每行
給你個思路。首先，定義20個陣列。然後在過程里弄個for迴圈，比如for i 1 to 20利用隨機函式，生成65 90之間的函式，賦值到變數，比如 str int 90 65 1 rnd 65 再弄個for迴圈，比如for j 1 to i判斷是否重複 if 陣列名 j str thencall ...