1樓：網海1書生
private sub command1_click()dim i as integer, x as integer, s as long
randomize
for i = 1 to 30
x = int(rnd * 100) + 1print x,
if (i mod 5) = 0 then prints = s + x
next
print "平均數="; s / 30
end sub
2樓：
private sub command1_click()dim a(30), i, sum as integertext1 = ""
randomize
for i = 1 to 30
a(i) = int(rnd * 100) + 1text1 = text1 & a(i) & " "
if i mod 5 = 0 then text1 = text1 & vbcrlf
sum = sum + a(i)
next
text1 = text1 & vbcrlf & "平均值=" & round(sum / 30, 2)
end sub
vb編寫產生隨機整數的函式,產生30個1~100之間的隨機數
3樓：西域牛仔王
int(100*rnd())，迴圈 30 次即可。
4樓：匿名使用者
private sub command1_click()clsdim i as integer
dim a(30) as integer
for i = 1 to 30
a(i) = 1 + int(rnd * 100)print a(i)
next
end sub
vb題 急求 。利用隨機函式rnd產生30個10~100之間的整數,再將它們按照由小到大的順序排列輸出
5樓：匿名使用者
前幾天，我寫信給別人弄的，他是乙個1-100號十，命令改變，我稍微（別忘了細長形狀的背後哦！短，無法顯示）也增加命令
私人command1_click（）
i隨著昏暗的整數，b字串，a（20）作為integer做，直到我= 20'開始迴圈新增陣列變數
我：「設定」選項卡，重複跳乙個隨機數
a（i）= int（rnd * 101）'分配給變數陣列隨機數當j = 0到i - 1'迴圈檢查重複
如果a（j）= a（i）然後轉到我：'如果你重複跳轉到「設定」選項卡，乙個隨機數下面j個'退出迴圈
b = b＆「，」＆a（i）
i = i + 1'陣列迴圈加1
迴圈b'輸出結束子
6樓：匿名使用者
private sub command1_click()dim a(29) as integer, tmp as integer
dim i as integer, j as integerrandomize time
for i = 0 to 29
a(i) = int(rnd * 71) + 30next
for i = 0 to 29
for j = i to 29
if a(i) > a(j) then
tmp = a(i)
a(i) = a(j)
a(j) = tmp
end if
next
next
for i = 0 to 29
print a(i);
if i = 14 then print
next
end sub
7樓：快樂小朱家
dim inta(0 to 29) as integerdim setno as integer
dim i as integer
randomize
for i = 0 to 29
inta(i) = 10 + int(rnd * 90)next
for i = 0 to 29
for b = i to 29
if inta(i) > inta(b) then setno = inta(i): inta(i) = inta(b): inta(b) = setno
next
next
for i = 0 to 29
msgbox inta(i)
next
用vb程式設計：隨機產生10個0~100之間的隨機整數，存放在乙個陣列中，然後求個元素和、平均值，統計
8樓：匿名使用者
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 做法）隨機產生10個30~100（包括30和100）的正整數，求最大值和平均值，並顯示整個陣列的值和結果。
求用vb程式幫我搞定乙個任務： 1。用隨機函式產生30個10到100之間的整數，並以每行5個數輸出在**框中 5
9樓：
你老師給你的作業吧！看書吧，多學點
10樓：匿名使用者
就是，不好好學，怎麼行，小菜
vb通過隨機函式產生兩個兩位正整數，求這兩個數之和及差並顯示出來
11樓：網海1書生
private sub form_click() '點選窗體執行dim a as integer, b as integerrandomize
a = int(rnd * 90) + 10print "第1個數："; a
b = int(rnd * 90) + 10print "第2個數："; b
print "兩數之和："; a + b
print "兩數之差："; abs(a - b)end sub
12樓：匿名使用者
直接用乙個隨機數。範圍設在10到100之間就行了
13樓：旅行志遊走風物間
dim a(1) as integer
dim m as integer
dim i as integer
private sub form_load()
form1.autoredraw=true '將窗體的autoredraw屬性置為真，否則print語句無法在窗體上顯示
end sub
private sub form_click() '窗體單擊事件，即單擊窗體
for i= 0 to 1
m=0 '進入for迴圈時，將m置為0，否則可能是上個for迴圈時得到的m值
'將不會做do...loop，因為不滿足做do...loop 的條件
do while (m<10 or m>100) '只要是小於10或大於100就接著做，直到找到大於10 ，
'小於100的數，退出do...loop迴圈，保證找到的是兩位數
m=cint(rnd * 100) '如果rnd產生的是0.02145則m=2,不是兩位數，所以用do loop
loop
a(i)=m
next i
print a(0) ; " + " ; a(1) ; " = " ; a(0) + a(1)
print a(0) ; " - " ; a(1) ; " = " ; a(0) - a(1)
end sub
14樓：歸萱
private sub form_click()dim arr(1) as integer, i as integer
for i = 0 to 1
randomize
arr(i) = int(rnd * 90) + 10next
print arr(0) & "+"; arr(1) & "="; arr(0) + arr(1)
print arr(0) & "-"; arr(1) & "="; arr(0) - arr(1)
end sub
VB程式設計，急求，vb程式設計，急求！！！
private sub command1 click dim a 1 to 15 as string,i as long,j as long,t as string for i 1 to 15 randomize a i chr int 90 65 1 rnd 65 print a i chr 32...
一道vb題目求大神幫忙， 急 一道vb題目，求大神幫忙！
如題目原文如此，則程式沒有問題，完全正確。具體要看題目的要求。比如 奇數日通行 還是 偶數日限行 急 一道vb題目，求大神幫忙！這個彎路繞大了，36！3.71993e 41，是個億億億億億級的數字，vb中沒有什麼資料型別能精確存放它的結果，而36 7 36 7 只需要算 36 35 34 33 32...
求解VB一道題，二級在即，急求
private x as integer，private表示變數x只能在本form裡使用，其他窗體不能呼叫 private x as integer寫到其他過程之外，說明其作用域是整個窗體 作用域，就是乙個變數的生命週期，從定義到消失的 區間，例如 private sub command1 clic...
急求通過IP位址查詢上網人的具體地點等資訊
ip138.com ip查詢 搜尋ip位址的地理位置 您查詢的ip 118.112.26.102本站主資料 四川省成都市 電信 參考資料一 四川省成都市 電信 參考資料二 四川省成都市 龍泉驛區 電信 顯ip的qq顯示好友所在位置的工作原理是 把各ip位址對應的地理位置資料都存在本地硬碟上，顯示的時...