100个数求最大值VB
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/20 19:22:25
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