vb隨機產生兩位數並找出最大數和最小數顯

2022-01-03 16:42:21 字數 4065 閱讀 4541

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

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...

幫我解一下這道VB程式設計題 「隨機產生兩位整數,找出其中的最大值 最小值和平均值」幫幫忙啦

望採納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...