1樓：趙扶風
這樣才對 初始化應加在for 迴圈裡 s要變為雙精度（這樣平均數才有小數點後幾位）
樓主試我這個：
private sub command1_click()dim i%, j%, max%, min%,s%for i = 1 to 10
randomize
j = int(rnd * 100 + 1)if i = 1 then min = jif j > max then max = jif j < min then min = js = s + j
print j;
next
print "最大值,最小值,平均數分別為:"; max; min; cdbl(s) / 10
end sub
2樓：vb妮可
private sub command1_click()dim i%, j%, max%, min%, s%for i = 1 to 10
j = int(rnd * 100 + 1)if i = 1 then min = jif j > max then max = jif j < min then min = js = s + j
print j;
next
print "最大值,最小值,平均數分別為:"; max; min; s / 10
end sub
3樓：匿名使用者
這10個數怎麼每次都是一樣的？
4樓：天元必勝
在窗體讀取事件中加上randomize，然後再用vb妮可的**，出現的就是真正的隨機數而不是偽隨機數了
randomize的作用是初始化隨機數生成器也就是在vb妮可的**里加上下面的內容
private sub form_load()randomize
end sub
怎麼用vb設計隨機產生100到200之間的數求出
1 首先需要啟動vb6.0，新建一個標準exe工程。2 開啟vb6.0之後，在窗體上繪製一個命令按鈕。3 接下來需要雙擊命令按鈕進入 視窗。4 接下來開始編輯按鈕的單擊事件。5 最後就可以按f5執行測試。求出最大值與最小值。dim a 9 as integer 定義一個整數變數陣列，大小為10 fo...
用vb程式設計隨機產生不重複的英文字母
給你個思路 字母的ascii值 大寫 65 90 小寫 97 122 隨便你隨機產生 15個之間的不同數字 然後轉換成 字母 即可 一個判斷是否存在的函式，一個迴圈生成的函式就行了 隨機生成字母的方法為 c chr int rnd 26 65 給你一個完整程式吧 dim c 1 to 15 as s...
怎樣用VB來執行檔案
shell 123.exe 需要程式路徑 可以用shell函式啊 shell pathname windowstyle pathname是檔案路徑名，windowstyle是執行時視窗的樣式 你的這個問題 應該是 shell e 123.exe vbnormalfocus windowstyle介紹...