1樓：匿名使用者
dim str as string = "", temp as integer = 0, sum as integer = 0
dim a(10) as integer
for i = 1 to 10
a(i) = int(rnd() * 99 + 1)sum = sum + a(i)
next
textbox6.text = "這
bai10個數
du的zhi
平均dao值專是屬" & sum / 10
用vb程式設計：隨機產生10個0~100之間的隨機整數，存放在乙個陣列中，然後求個元素和、平均值，統計
2樓：匿名使用者
private sub form_load()dim a(10), i, x, j as integerdim y as string
for i = 0 to 9
randomize
a(i) = int(rnd(1) * 101)x = x + a(i)
next i
print "元素bai和=" & x
print "平均
du值=" & x / 10
for i = 0 to 9
if a(i) > (x / 10) then j = j + 1: y = y & cstr(a(i)) & " "
next i
print "大於
zhi平dao
均值的元素個回數=" & j
print "大於平均值的元素：答" & yme.refresh
end sub
vb隨機數問題
rnd 隨機數函式 生成某個範圍內的隨機整數，可使用以下公式 int upperbound lowerbound 1 rnd lowerbound 這裡，upperbound 是隨機數範圍的上限，而 lowerbound 則是隨機數範圍的下限。由小到大的順序排列,由大到小的順序排列 要用到陣列氣泡排...
使用隨機函式產生1 100之間的隨機整數並存放在一維數
include include void main vb程式設計問題 1使用隨機函式產生10個10 100之間的隨機整數存放在一維陣列a中,並把該陣列排序後顯示在乙個 根據已有的程式行，缺的內容主要就是乙個排序過程。新增乙個排序的過回 程就答行了。但是不知道該添在 請說明程式的空白處是在 能不能標出...
Php中生成6位隨機數並顯示
莫道無情 php中生成6位隨機數並顯示實現如下 1 使用shuffle函式生成隨機數。arr range 100000,999999 shuffle arr foreach arr as values echo values.顯示隨機數?2 使用array unique函式生成隨機數。arr arr...