随机产生10个范围为1-100的整数,包括1和100: 选出这10个数中最大值:

PrivateSubCommand1_Click()Dimi,max,min,sAsIntegermax=0min=100s=0Dima(30)AsIntegerText1.Text=""Text2.

这样才对初始化应加在For循环里s要变为双精度（这样平均数才有小数点后几位）楼主试我这个：PrivateSubCommand1_Click()Dimi%,j%,max%,min%,s%Fori=1To

a=1;b=1000;c=5;n=1000;m=2;x=randn(1,n);x=x/std(x)*sqrt(c);x=x-mean(x)+m;index=find(x>=a&x

a=rand(1,10);%生成1行10列共十个0到1之间的随机小数>>b=a*4+1;%将随机小数映射到1到5(不含5)之间>>c=floor(b)%只取整数部分将以上程序拷入运行即可

Dimm(99)AsInteger,n(9)AsInteger,iAsInteger,kAsIntegerRandomizeFori=0To99m(i)=Int(Rnd*100)Printm(i);k

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,

通过SubMain启动Submain()Dima(9)AsInteger,pAsDouble,iAsInteger,nAsIntegerp=0n=0Fori=0To9a(i)=Rnd*100p=p+a

这个程序不难,不知你要统计什么呢?

functionsj(i%,a%,b%)aslongDimx%x=Int(Rnd*(b-a+1))+asj=xEndfunctionPrivateSubCommand1_Click()Dimn%,a%

均匀分布?假如是均匀分布：a=rand(1)/2.5-0.2a就是[-0.2,0.2]的均匀分布再问：那怎么在训练样本上添加啊？是让训练样本+a吗？

PrivateSubCommand1_Click()c=InputBox("","","")Fora=1To100b=Int(Rnd*99)IfInt(Right(Str(b),1))=Int(c)T

窗体上放个CommandButton和两个Label：PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,nAsIntegerLabel1.Capti

DimMyValue(10)AsIntegerDimi,j,pAsIntegerFori=0To9RandomizeMyValue(i)=Int((100*Rnd)+1)NextFori=0To9Fo

eginrandomize;writeln(random(200)+100);end.random(x);是随机产生一个小于等于200大于等于0的数所以后面加上100就可以保证是在100-300之间的

PrivateSubCommand1_Click()DimiAsInteger,xAsInteger,sAsLongRandomizeFori=1To30x=Int(Rnd*100)+1Printx,

PrivateSubCommand1_Click()Dima,b,cAsIntegerRandomizea=Int(Rnd*9)+1Randomizeb=Int(Rnd*9)+1Randomizec=

vb6测试通过PrivateSubCommand1_Click()Dima(10)AsInteger,tempAsInteger,iAsInteger,jAsIntegerRandomizetemp=

Option ExplicitPrivate Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim