浩晨众云网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
代码如下: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
最简单的语句实现最复杂的函数。高手写的代码,小白能马上明白。