从品牌网站建设到网络营销策划,从策略到执行的一站式服务
代码如下:privatesubform()Click()Dima(11)asinteger“defineshapingvariableclsprint”排序前:“forI=1to10randomize”生成随机数a(I)=int(100*RND100)“将值赋给数组printa(I)nextifori=1to9”排序处理P=iforj=p1to10ifa(P)>A(J)然后P=jnextjt=a(I)a(I)=a(P)a(P)=tnextiprintprint”插入前排序:“forI=1to10”输出排序结果printa(I)nextprintprintprint”插入后排序:“n=Val(InputBox(”输入100之间的正整数和200“,“input”“inputvaluetobeinsertforI=1to10”插入值的排序处理IFN<A(1)那么“插入值小于所有元素forJ=10to步骤1a(J1)=a(J)nextja(1)=nextfor”对elseifn>A(I)和n<=a(I1)进行排序之后退出循环,然后“插入数组之间的值范围forJ=10to步骤1a(J1)=a(J)nextja(I1)=nextfor“排序后退出循环”插入值大于所有元素a(11)=nendifnextifori=1to11“打印a(I)nextiendsub
最简单的语句实现最复杂的函数。高手写的代码,小白能马上明白。
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图