vb中如何求n个数的最大值和最小值？

时间：2018.11.21 发布人：305之花_犬倩
vb中如何求n个数的最大值和最小值？

已解决问题

谷歌305之花_犬倩用户在2018.11.21提交了关于“天天向上vb中如何求n个数的最大值和最小值？”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-02-25T14:22:59。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，真心佩服你,谢谢 ！

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

第1个回答

用户名：匿名用户  


**m(j)=InputBox("请输入**")

Nextj

Max=**m(1)

Fori=1To10

If**m(i)>MaxThen

Max=**m(i)

EndIf

Nexti

Text1.Text=Max

EndSub

PrivateSubForm_Load()

Command1.Caption="最大值"

Command2.Caption="最小值"

Text1.Text=""

EndSub

PrivateSubCommand2_Click()

Forj=1To10

**m(j)=InputBox("请输入**")

Nextj

Min=**m(1)

Fori=1To10

If**m(i)

Min=**m(i)

EndIf

Nexti

Text1.Text=Min

EndSub

我以测试过了，vb6.0没问题！