用vb编写数字从大到小排列

IfaIfaIfaIfaIfbIfbIfbIfcIfcIfd

PrivateSubCommand1_Click()'1'23'456Dima(6)AsIntegerFori1=1To6Fori2=1To6Fori3=1To6Fori4=1To6Fori5=1To

ifx<ythent=xx=yy=xelseify<zthent=yy=zz=yendifendif,

Dima%(1To20)Fori=1To20a(i)=Int(Rnd*90+10)Printa(i);NextPrintFori=1To20Ifa(i)Mod2=1ThenPrinta(i);EndI

冒泡法再问：我是新手，能发哈代码不？再答：你说的东西和语言无关，是算法思想你百度下冒泡法在领悟下里面的意思，把它写成vb的形式代码不写的，我知道你肯定是要交作业，这样学习可不行的

privatesubcommand1_click()dima(1to10)asinteger,i,jfori=1to10a(i)=int(rnd*100)+1printa(i);nextprintfo

试一下：PrivateSubCommand1_Click()Dimarr(1To20),iFori=1To20Randomizearr(i)=Int(Rnd*101)NextfcarrPrintJoi

在窗体上添加一个按钮,加入如下代码“PrivateSubCommand1_Click()DimN'因为你说的是任意正整数,所以没有给变量指定变量类型DimIAsIntegerDimLAsInteger

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

#include//标准输入输出函数调用需要此头文件、就是那个printf和scanf函数要用的voidmain()//主函数{inti,j,min,temp,a[10];printf("请输入:\n

dimarray(),iasinteger,jasintegerdimmin_iasinteger,max_jasinteger'用来标注数组中最小值和最大值的下标redimarray(10)=[1,

PrivateSubForm_Click()Dima(1To60)AsIntegerDimt%RandomizeFori=1To60a(i)=Int(Rnd*79)+20NextiFori=1To59

dimi%,j%,t%dima(5)asintegerprivetesubcommand1_click()randomizefori=0to5a(i)=int(rnd*6)nextifori=0to4

'将Text2.MultiLine=TruePrivateSubCommand2_Click()DimsAsString,s2AsString,s3AsStringDimiAsInteger,kAsI

#includevoidmain(){intnum,i,j,nD=0,nX=0;intanum[4];intdifferent(intn);printf("shuruyigesiweishu:");d

放到excel里面吧

OptionBase1DimaPrivateSubForm_Load()a=Array(10,4,53,22,90,34)EndSubPrivateSubCommand1_Click()'选择排序法F

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

DimzsAsInteger,fsAsInteger,xAsStringDox=Inputbox("请输入一个整数")IfVal(x)>0Thenzs=zs+1ElseIfVal(x)fs=fs+1E

判断也就是需要一个依据,那么你这的依据明显就是排列好的数组,答案就显而易见了,先排列再和原数组对比,就可知道是否升序排列了