vb 随机生成10*10数据中取最大最小值

privatesubcommand1_click()dima(1to10)asinteger,i,jfori=1to10a(i)=int(rnd*100)+1printa(i);nextprintfo

OptionBase1OptionExplicitDima(11)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerPicture1.ClsPicture

OptionExplicitPrivatea(9)AsIntegerPrivateiMaxIndexAsIntegerPrivateSubCommand1_Click()Dimi,j,k,iMaxAs

OptionExplicitPrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegerFori=1To50Forj=1To4PrintInt(Rnd*46

改用通用的获取随机字符的方式.定义一个字符串strAph="abcd.ABCD..."取随机一个字符a=mid(strAph,int(rnd(52))+1)

正态分布在整个实数轴上都有可能取到,只不过取某些值得可能性很小,按照你的要求在[110]之间生成均匀分布列还还能满足,用1+9*rand(N),N指的是数组的维数.对于正态分布,必须指出其数学期望和方

dima(9)a(0)=25a(1)=33`````a(9)=99i=int(rnd*10)?a(i)看明白了吗?有问题再HI我再问：输出的三个数要求不重复的呢，你这样的只有一个

a=round("123.4567",2)a的结果为123.46

LS的回答有可能出来100（三位数）改为a=int(Rnd*100)b=int(Rnd*100)

PrivateSubCommand1_Click()DimiAsInteger,myTempNumAsInteger,myTempStrAsStringRandomize(Timer)Fori=1To

Dimy%,x%Fori=1To10x=Int(Rnd*100)'[0,99]Printx;Ifi=1Theny=xElseIfy>xTheny=xEndIfNextiPrint"最小值";x如果是N

privatesubcommand1_click()dima(10)fori=1to10a(i)=int(rnd*90)+10printa(i);s=s+a(i)nextprintprint"总和="

Randomize初始化随机数发生器Rnd()获取0~1之间的随机数,乘以90后再加上10,取整后就是10~90之间的了然后挑选出来Mod3=0的数据排序就是了再问：就是mod3=0后不会排序啊再答：

PrivateSubForm_click()DimA(1To10)RandomizeForI=1To10A(I)=Int(Rnd*90)+10NextIForI=1To9'选择法p=IForJ=I+1

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

一显示按纽为Button1,文本显示为Txt1.以下为代码：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.Even

为了生成某个范围内的随机整数,可使用以下公式：Int((upperbound-lowerbound+1)*Rnd+lowerbound)upperbound是随机数范围的上限,而lowerbound则

添加两个控件名字分别为sc、tj的按钮.'定义一个窗体数组变量dima(10)asinteger'生成是个随机数privatesubsc_click()'下面这一句可以得到不同的随机数randomiz

用RND函数产生随机数

Subform_click()Dimi(10)Forn=1To10i(n)=Int(Rnd*30+20)Nextmaxnum=20Forn=1To10Ifi(n)>maxnumThenmaxnum=i