随机产生10个100以内的数,求出其中的最大值和最小值

窗体中加命令按钮,单击事件代码如下：PrivateSubCommand1_Click()  Randomize  Dima(1To20)AsInteger&nb

import java.util.Random;public class Cal { /**  * @param&nbs

PrivateSubCommand1_Click()Dima(50),i,nRandomizeFori=1To50a(i)=Int(Rnd*191)+10Printa(i);IfiMod10=0The

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

你拉三个文本框,一个按钮text1和text1拉高一点,MultiLine设置为true,排列如图所示Private Sub Command1_Click()  

我的是最简洁的程序算法,哈哈,整个算法只有一个20次的循环,精简明朗快速DimRanValue(100)AsInteger'100个临时数据来计算重复DimiValueAsIntegerDimiCou

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

subform_click()dima%(20)fori=1to20a(i)=int(rnd()*10+1)printa(i),nextendsu

#include#include#includeintmain(void){srand(time(0));inti=0;//用于下面的循环inta[20]={0};//用于存储产生的20个随机数.do

importjava.util.Random;publicclassTest{publicstaticvoidmain(String[]args){Randomr=newRandom();int[]a

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

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

publicstaticvoidmain(String[]args){int[]numbers=newint[10];intsum=50;Randomrandom=newRandom();for(in

'把所有的与最大值相同的都显示出来PrivateSubForm_Load()Me.AutoRedraw=TrueDima(0To19)AsIntegerDimb(0To19)AsIntegerDimM

kk(i,1)=rnd*90+10'生成20个100以内的两位正整数10

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

Dimay(20)PrivateSubCommand1_Click()Text1=""Fori=0To19ay(i)=Int(Rnd*100)Text1=Text1&""&ay(i)NextiEndS

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

Option ExplicitPrivate Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim