vb輸入三個數求出最大值與最小值 用VB如何編寫程序對一組數組求最值？

用VB如何編寫程序對一組數組求最值？1、在這里我們是從編寫程序判斷10個數中的大的值與最小值。打開vb6.0,新建項一個標準EXEvb獲取最大值與最小值？VB取大值和最小值寫回Private Sub

用VB如何編寫程序對一組數組求最值？

1、在這里我們是從編寫程序判斷10個數中的大的值與最小值。打開vb6.0,新建項一個標準EXE

vb獲取最大值與最小值？

VB取大值和最小值寫回

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

從鍵盤上輸入10個數,輸出這10個數并求這10個數的平均值,最大值和最小值.要求VB？

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