1樓:匿名使用者
private sub form_click()cls '清除螢幕
dim a as integer '定義 a 為整形a = val(inputbox("請決定需要排多少組組數值?", "排序數值數")) 'a的等於輸入框所返回的數值,決定排序陣列的個數
dim i(100) '定義i 為陣列 ,100個元素 (每個元素都是整形的變數)
for j = 1 to a
i(j) = val(inputbox("請輸入第" & j & "組數值", "輸入資料")) '為每個陣列賦值
print i(j) ' 列印每組陣列的值next j '結束for迴圈
print " -----------------排序結果"
for j = 1 to a
for k = j + 1 to a
if i(j) > i(k) then
p = i(j)
i(j) = i(k)
i(k) = p
end if
next k
next j
for j = 1 to a
print i(j) '列印出排序過的陣列next
end sub
2樓:平野川
private sub form_click()
randomize() '初始化隨機數生成器,產生不重複的偽隨機數。
dim a(9) as integer, max as integer, min as integer
max = 0
min = 99
for i = 0 to 9
a(i) = int(rnd() * 89 + 10) ' 產生10-99的10個兩位隨機數
if a(i) >= max then max = a(i) '比較求最大值
if a(i) <= min then min = a(i) '比較求最小值
print a(i); '輸出產生的10個兩位隨機數
next i
print("max=" & max) '輸出最大值
print("min=" & min) '輸出最小值
end sub
vb 隨機產生10個兩位整數,找出其中最大值、最小值。
3樓:匿名使用者
private sub form_click()cls '清除螢幕
dim a as integer '定義 a 為整形a = val(inputbox("請決定需要排多少組組數值?", "排序數值數")) 'a的等於輸入框所返回的數值,決定排序陣列的個數
dim i(100) '定義i 為陣列 ,100個元素 (每個元素都是整形的變數)
for j = 1 to a
i(j) = val(inputbox("請輸入第" & j & "組數值", "輸入資料")) '為每個陣列賦值
print i(j) ' 列印每組陣列的值next j '結束for迴圈
print " -----------------排序結果"
for j = 1 to a
for k = j + 1 to a
if i(j) > i(k) then
p = i(j)
i(j) = i(k)
i(k) = p
end if
next k
next j
for j = 1 to a
print i(j) '列印出排序過的陣列next
end sub
vb題隨機生成10個兩位數整數,並統計出最大者,最小者及平均值顯示出來
4樓:匿名使用者
private sub command1_click()randomize
dim sum as integer, a(10) as integer, mas as integer, min as integer
min = 100
for i = 1 to 10
a(i) = int(rnd * (90) + 10)sum = sum + a(i)
if max < a(i) then max = a(i)if min > a(i) then min = a(i)next i
print "平均值:"; sum / 10; "最大值:"; max; "最小值:"; min
end sub
vb隨機10個兩位整數,找出其中最大,最小值
5樓:聽不清啊
private sub command1_click()randomize
max = 0
min = 100
print "10個隨機整數為:"
for i = 1 to 10
x = int(rnd * 90) + 10print x;
if x > max then max = xif x < min then min = xnext i
print "最大值:"; max
print "最小值:"; min
end sub
高分求vb程式:隨機產生10個整數,並輸出其最大數和最小數
6樓:匿名使用者
這個簡單。但是你沒有說這個整數的範圍,可以是無窮大,也可以是1。因此以下**以100範圍內整數為例
dim a(11) as intergerfor i=1 to 10
a(i)=int(rnd*100)
next i
'得到最大值
max=a(1)
for i=2 to 10
if a(i)>a(1) then max=a(i)next i
'求最小值
min=a(1)
for i=2 to 10
if a(i)
print 「最大值:",max print 「最小值:",min 當然另外可以用排序法,可把這個10個數進行大小排序,這裡就不列了 vb:編寫一程式 產生10個100~200間的隨機整數,找出其中的最大數和最小數。 7樓:一千館原創短** private sub command1_click()dim a(1 to 10) as integerdim i, min, max as integerfor i = 1 to 10 a(i) = int((200 - 100 + 1) * rnd + 100) next i max = a(1) min = a(1) for i = 2 to 10 if max < a(i) then max = a(i)if min > a(i) then min = a(i)next i print "最大數是" & max print "最小數是" & min end sub 下次再折騰人拒絕回答 private sub command1_click()dim a(1 to 10) as integerdim i, j, t as integerfor i = 1 to 10 a(i) = int((100 - 0 + 1) * rnd + 0) next i for i = 1 to 10 print a(i); next i print for i = 1 to 9 for j = 1 to 9 if (a(j) > a(j + 1)) thent = a(j) a(j) = a(j + 1) a(j + 1) = t end if next j next i for i = 1 to 10 print a(i); next i end sub 閭丘芷荷乙曾 小ks!用外國的方法!哥們仔細看!1.十幾乘十幾 口訣 頭乘頭,尾加尾,尾乘尾。例 12 14 解 1 1 1 2 4 6 2 4 8 12 14 168 注 個位相乘,不夠兩位數要用0佔位。2.頭相同,尾互補 尾相加等於10 口訣 一個頭加1後,頭乘頭,尾乘尾。例 23 27 解 2... 望採納private sub command1 click randomize max 0 min 100 print 10個隨機整數為 for i 1 to 10 x int rnd 90 10print x if x max then max xif x min then min xnext i... 至少找copy出多少個不同的兩位數,才能保證其中一定存在著這樣的兩個數,它們的差是個位與十位數字相同的兩位數 即至少找出多少個不同的兩位數,才能保證其中一定存在著這樣的兩個數,它們的差是11的倍數 兩位數10到99 被11除餘數情況分11類 餘1 2 3 4 5 6 7 8 9的 各8個餘10 11...兩位數乘兩位數口算該怎樣算,最簡便的(有技巧的)
幫我解一下這道VB程式設計題 「隨機產生兩位整數,找出其中的最大值 最小值和平均值」幫幫忙啦
至少找出多少個不同的兩位數,才能保證其中一定存在著這樣的兩個