1樓：匿名使用者
給你基本思路：
利用vb內部函式 rnd() 產生隨機函式---為0--1之間的隨即數字，轉換成10--99之間的隨機數字 然後利用交換法來找出最大和最小數字，最後輸出就可以了
2樓：小李無刀
使用陣列儲存,隨機函式使用,最小值最大值檢索
3樓：
以下是關鍵**，其他的我就不打了
dim i as integer
dim max as integer
dim min as integer
dim temp as integer
'定義變數，i為迴圈變數，max為最大數，min為最小數，temp為每一次生成數時使用的臨時變數
temp=int(90*rnd()+10)max=temp
min=temp
'生成第一個數，並且第一個數既是最大數又是最小數for i=2 to 10 step 1
temp=int(90*rnd()+10)if temp > max then max=tempif temp < min then min=tempnext i
label1.caption=max
label2.caption=min
把上面的**複製到一個button的click事件，在窗體上畫兩個label然後執行就可以了，label1顯示最大數，label2顯示最小數。
說明：由於並沒有要求找出最大最小是第幾個元素，所以不使用陣列。
vb利用隨機函式rnd生成10個10-99的整數，並計算其中的素數個數。（求大神看看**錯了？）
4樓：用著追她
1、首先bai，我們
給主函式du先定一個函式。
2、然zhi後dao我們編寫
版for迴圈語句。
3、然後我們編寫輸權出語句及範圍。
4、然後我們開始執行測試。
5、這句警告沒關係，如果不想看到可以新增呼叫數學函式。
6、這時我們便可以看到效果了。
5樓：匿名使用者
我給你優化了一下，由於最大99，所以只需要判斷到9就可以了，一回旦j=10，則為素數答
private sub command1_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
6樓：聽不清啊
已經copy改好了：
private sub command1_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
7樓：匿名使用者
n = int(rnd * 90 + 10)
8樓：當你遇到豆腐
st as string
vb已知一個具有10個整數的一維陣列，各元素值隨機產生（範圍在10，99）求出該一維陣列中的最小位 10
9樓：聽不清啊
private sub command1_click()randomize
dim a(10) as integer
m = 1
for i = 1 to 10
a(i) = int(rnd * 90) + 10print a(i);
if a(i) < a(m) then m = inext i
print "最小元素a("; m; ")="; a(m)print
end sub
怎麼用vb設計隨機產生100到200之間的數求出
刺友互 1 首先需要啟動vb6.0，新建一個標準exe工程。2 開啟vb6.0之後，在窗體上繪製一個命令按鈕。3 接下來需要雙擊命令按鈕進入 視窗。4 接下來開始編輯按鈕的單擊事件。5 最後就可以按f5執行測試。求出最大值與最小值。 指尖遊戲 dim a 9 as integer 定義一個整數變數陣...
c語言使用隨機函式rand產生1099的互不相
你好！你的 就沒有輸出部分呀 輸出部分新增了，你看看吧 include stdlib.h include stdio.h include time.h void main int n a 50 i,j,t srand time null for i 0 i 50 i a i rand 90 10 f...
設計程式vb隨機產生10到100之間（包括10和
private sub command1 click on error resume next dim a 5 as integer randomize int upperbound lowerbound 1 rnd lowerbound for i 0 to 3 b c 0 for j 1 to ...