随机产生10个[30,100]内的整数,求最大值.最小值和平均值.vb
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/10 07:11:31
PrivateSubForm_Load()Dima(10),i,x,jAsIntegerDimyAsStringFori=0To9Randomizea(i)=Int(Rnd(1)*101)x=x+a(
a1:a10=randbetween(30,100)最大值=max(a1:a10)最小值=min(a1:a10)平均值=average(a1:a10)
PrivateSubCommand1_Click()RandomizeDima(10)AsInteger,imasasinteger,iminasinteger,Averageasintegerima
PrivateSubCommand1_Click()Dimi,max,min,sAsIntegermax=0min=100s=0Dima(30)AsIntegerText1.Text=""Text2.
帮你写好了,这个是工程文件,下载下来就可以了.以下是源码:PrivateSubCommand1_Click()DimA(10)AsDouble,LAsInteger,BAsDouble,CAsDoub
Dima(9)AsIntegerRandomizea(0)=Int(Rnd()*21+10)Doa(1)=Int(Rnd()*21+10)LoopWhilea(1)=a(0)Doa(2)=Int(Rn
PrivateSubCommand1_Click()Dima(10)RandomizeDimsumAsInteger,minAsInteger,maxAsIntegersum=0:min=100:ma
Dima(10)Fori=0To9a(i)=Int(100+100*Rnd)NextiFori=0To8Forj=iTo9Ifa(i)t=a(i)a(i)=a(j)a(j)=tEndIfNextjNe
我已经上机验证过了,正确.思路:产生80个随机数,把这80个随机数由小到大排序,然后从第1个到第80个的顺序挑选偶数,赋值给字符串s1,够10个换行.再从第80个到第1个的顺序挑选奇数,赋值给字符串s
#includevoidmain(){inta[100],i;for(i=0;i
Dimy%,x%Fori=1To10x=Int(Rnd*100)'[0,99]Printx;Ifi=1Theny=xElseIfy>xTheny=xEndIfNextiPrint"最小值";x如果是N
OptionExplicitPrivateSubForm_Click()'定义i循环变量,imax存放最大数,imin存放最小数,数组ishuz下标为1-10DimiAsLong,imaxAsLong
是问编程方法吗,这里提供一种方法供参考:首先设置所有位置的值都为1设定一个10次的循环,每次循环中随机产生一个正整数n,对n取30的余数t如果t位置的值不为0,则设置t位置的值为0如果t位置的值为0,
PrivateSubCommand1_Click()Dima(100)AsInteger,xAsIntegerFori=1To100Ifsushu(i)ThenPrinti;IfiMod10=0The
PrivateSubCommand1_Click()Dima(29)AsInteger,tmpAsIntegerDimiAsInteger,jAsIntegerRandomizeTimeFori=0T
分别用random(),max(),min(),avg()函数.
是“奇数”吗..?另外一共就产生十个,每行显示十个……是不是产生任意多个,然后每行输出十个?奇数的话范围就在11~99之间,用2n+1法产生奇数的话n的取值范围就是5~49新建工程,窗体上放个文本框,
PrivateSubCommand1_Click()DimiAsInteger,xAsInteger,sAsLongRandomizeFori=1To30x=Int(Rnd*100)+1Printx,
vb6测试通过PrivateSubCommand1_Click()Dima(10)AsInteger,tempAsInteger,iAsInteger,jAsIntegerRandomizetemp=
Option ExplicitPrivate Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim