vb输入三个数求出最大值与最小值 用VB如何编写程序对一组数组求最值？

用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

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。