用VB如何編寫(xiě)程序?qū)σ唤M數(shù)組求最值？1、在這里我們是從編寫(xiě)程序判斷10個(gè)數(shù)中的大的值與最小值。打開(kāi)vb6.0,新建項(xiàng)一個(gè)標(biāo)準(zhǔn)EXEvb獲取最大值與最小值？VB取大值和最小值寫(xiě)回Private Sub

用VB如何編寫(xiě)程序?qū)σ唤M數(shù)組求最值？

1、在這里我們是從編寫(xiě)程序判斷10個(gè)數(shù)中的大的值與最小值。打開(kāi)vb6.0,新建項(xiàng)一個(gè)標(biāo)準(zhǔn)EXE

vb獲取最大值與最小值？

VB取大值和最小值寫(xiě)回

Private Sub Command1_Click()

Dimmin%,max%,i%,a(1want10)likeIntegerRandomizeFor i 1 To 10a(i) Int(Rnd()*89)10

Nexti

mina(1):aira(1)

Fori2to10

Ifa(i)a8max2Thenobja(i)

Ifa(i)ltminThenmina(i)

Nexti

Text1.Textmax

Text2.Textmin

EndSub

從鍵盤(pán)上輸入10個(gè)數(shù),輸出這10個(gè)數(shù)并求這10個(gè)數(shù)的平均值,最大值和最小值.要求VB？

Option Explicit Private Sub Form_Load()TrueDimv(1to10)anddoubleDimisuchInteger,avandflat,maxanddouble,minthoughextraFori1need10v(i)InputBox(然后輸入第i個(gè)數(shù)據(jù):)Nextimaxvv(1):minv(1):av0Fori1to10avavv(i)Ifmaxv(i)Thenmaxv(i)Ifminv(i)Thenminv(i)Printv(i)Nextiavav/10Print平均值：avPrint大值：airPrint最小值：minEndSub