急求vb程式設計「利用隨機函式產生50 100之間的隨機整

1樓：匿名使用者

private sub command1_click()randomize

n=rnd()*10

for i=1 to n

s=s+i

a=a+1/s ''這裡應該注意！！！！！

next

msgbox "n值為"+str(n)+",結果為"+str(a)end sub

2樓：

你沒給分啊!!吃白飯,不行咧

計算機vb中,利用隨機函式產生10個10-100的隨機數,並將其賦值給陣列a,然後求出平均值？

3樓：聽不清啊

private sub command1_click()dim a(10) as integer

randomize

for i = 1 to 10

a(i) = int(rnd() * 91) + 10print a(i);

s = s + a(i)

next i

print

print "平均值="; s / 10

end sub

vb中利用隨機函式產生100到999之間的整數構

和bai 1 樓不一 du樣，zhi我dao用到版 了權 text框 private sub mand1 click dim a 1 to 25 as integerdim i as integer text1.text for i 1 to 25 randomize a i int 900 rnd...

vb問題利用隨機函式產生10 99之間的隨機整數

我已經上機驗證過了，正確。思路 產生80個隨機數，把這80個隨機數由小到大排序，然後從第1個到第80個的順序挑選偶數，賦值給字串s1,夠10個換行 再從第80個到第1個的順序挑選奇數，賦值給字串s2,同上。有一點很重要 把這兩個文字框的mutltiline屬性要改為 true private sub...

VB程式設計急求，急求VB程式設計程式碼！！！！

private sub command1 click 計算應發工資，text4 text4 val text1 val text2 val text3 計算個人所得稅，text5 if val text4 1000 thentext5 0 elseif val text4 1000 and val ...