vb求一组数的最小值和最大值

时间：2018.06.18 发布人：**clyniq
vb求一组数的最小值和最大值

已解决问题

谷歌**clyniq用户在2018.06.18提交了关于“丰子恺vb求一组数的最小值和最大值”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-02-27T09:45:25。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，感谢你,我会记得你对我的好的 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：匿名用户  


OptionBase1

PrivateSubCommand1_Click()

DimA()AsInteger,nAsInteger,maxAsInteger,minAsInteger

Text1.Text=""

Text2.Text=""

Text3.Text=""

Randomize

Forn=1To10

A(n)=Int(100*Rnd)

Text1.Text=Text1.Text&A(n)&""

Next

callf(a(),max,min)

Text2.Text=max

Text3.Text=min

EndSub

PrivateSubf(A()AsInteger,maxAsInteger,minAsInteger)

DimiAsInteger

max=A(1)

min=A(1)

Fori=2ToUBound(A)

Ifmax

Ifmin>A(i)Thenmin=A(i)

Nexti

EndSub你那个Text1.Text=A(n)是什么意思我没有太搞明白按照要求输出

一组数的最小值和最大值就是这样子

你看那儿不明白再问吧