100ThenMsgBox"n的值过大程序溢出",5+48,""Dima!(100)Fori=1Tona(i)=Inpu"> 100ThenMsgBox"n的值过大程序溢出",5+48,""Dima!(100)Fori=1Tona(i)=Inpu" />
欢迎来到天天文库
浏览记录
ID:55778202
大小:23.50 KB
页数:1页
时间:2020-06-07
《比较任意N个数大小的VB代码.doc》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、窗体代码:PrivateSubCommand1_Click()Dimn%n=InputBox("请输入n的值")Ifn>100ThenMsgBox"n的值过大程序溢出",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
此文档下载收益归作者所有