100个数求最大值VB

PrivateSubCommand1_Click()Dima(1To20)Dimmax,ave,min,summax=0min=300Print"产生的20个数为:";Fori=1To20a(i)=I

DimnMaxasInteger,nMinasInteger,nTmpasInteger,nJsqasIntegerDimdSumasDoubleRandomizenTmp=CInt(Rnd*100)

A10B30C12D26E37我试用的是这个,另外五个数唯一的关系就是相加之后能被整除,另外就是一个减,另外一个会加的关系,并不是绝对的A最大,E最小这样,数值是完全随机的,比如五个数相加是100,然

PrivateSubCommand1_Click()RandomizeDima(10)AsInteger,imasasinteger,iminasinteger,Averageasintegerima

帮你写好了,这个是工程文件,下载下来就可以了.以下是源码:PrivateSubCommand1_Click()DimA(10)AsDouble,LAsInteger,BAsDouble,CAsDoub

1、冒泡法排序后输出最大值和最小值dimssnum=val(inputbox("输入要求的数的个数"))dima(1tonum)fori=1tonuma(i)=texti.textnextform=n

PrivateSubCommand1_Click()fori=1to20a=val(inputbox("输入第"&i&"个数:"))ifa>=0thenj=j+1:s=s+anextprint"正数个

PrivateSubCommand1_Click()Dimi,sAsIntegers=0Fori=1To100IfiMod3=0OriMod7=0Thens=s+1EndIfNextiPrintsEn

#includeintmain(){printf("Pleaseinput10number.\n");inta;scanf("%d",&a);intmax=a,min=a;for(inti=0;i

PrivateSubCommand1_Click()Dima(10)RandomizeDimsumAsInteger,minAsInteger,maxAsIntegersum=0:min=100:ma

dimarr,idimn_min,n_max,n_sum,n_avarr="1,2,3,4,5,6,7,8,9,10,11,12"arr=split(arr,",")n_min=clng(arr(0)

Dimk%Dima%(1To10)PrivateSubCommand1_Click()Fori=1To10Randomizea(i)=Int(Rnd*100+1)NextPrint"a数组:"k=1F

1填写imod6=0,指的是余数要等于0；2填写S,表示要把S输出.

a=XXb=YYc=MMifa>bthenmax=aelsemax=bendififc>maxthenmax=cendif

大概这个意思：Dim MaxY as SingleDim X,YMaxY = -999999For X = 1

'声明变量dimMin_numasintdimMax_numasintdimSum_numasintdimArr_num(9)asint'赋予初始值Min_num=101Max_num=-1Sum_n

任意6个值,我就以随机产生6个两位正整数为例好了,代码如下：PrivateSubCommand1_Click()Dima(6)AsIntegerFori=1To6Randomizea(i)=Int(R

'最大PublicFunctionmax(aAsInteger,bAsInteger,cAsInteger)AsIntegermax=IIf(a>b,IIf(a>c,a,c),IIf(b>c,b,c)

这个就和我们平时判断三个数的大小一样,设：A,B,C三个数,按我们平时的大脑判断就是A大于B吗?如是,那么：A也大于C吗?A大于B吗?如不是,那么：B大于C吗?如果是,那么最大就是BA大于B吗?如不是

Option ExplicitPrivate Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim