比较任意N个数大小的VB代码

整理文档很辛苦,赏杯茶钱您下走!

免费阅读已结束,点击下载阅读编辑剩下 ...

阅读已结束,您可以下载文档离线阅读编辑

资源描述

窗体代码:PrivateSubCommand1_Click()Dimn%n=InputBox(请输入n的值)Ifn100ThenMsgBoxn的值过大程序溢出,5+48,Dima!(100)Fori=1Tona(i)=InputBox(请依次输入各个数值)NextiFori=1TonForj=i+1TonIfa(i)a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextjNextiPrinta(1);Fori=2TonPrint&a(i);NextiEndSub

1 / 1
下载文档,编辑使用

©2015-2020 m.777doc.com 三七文档.

备案号:鲁ICP备2024069028号-1 客服联系 QQ:2149211541

×
保存成功