产生100个0-100之间的随机整数,并计算出平均值

Private Sub Command1_Click()Text1.Text = ""Dim A(1 To 1

PrivateSubForm_Load()Dima(10),i,x,jAsIntegerDimyAsStringFori=0To9Randomizea(i)=Int(Rnd(1)*101)x=x+a(

packagetest;importjava.util.Random;publicclassrandomNum{publicstaticvoidmain(String[]args){chec

先在窗体上添加一个TextBox文本框（将其Multiline属性设置为True,并调整宽高以便能较好的显示出100个随机数）和一个Button按钮.然后双击Button按钮跳转到代码编辑窗口,粘帖以

?STR(A(I),3)改为?STR(A(i),3)?"最大数是："+Mmax+"最小数是：",Mmin改为：?"最大数是：",Mmax,"最小数是：",Mmin

A=rand(10,10);sum(diag(A))

帮你写好了,这个是工程文件,下载下来就可以了.以下是源码:PrivateSubCommand1_Click()DimA(10)AsDouble,LAsInteger,BAsDouble,CAsDoub

PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,mAsIntegerFori=1To50n=Int(1+Rnd*100)IfnPrintn;m=m

Dimsum,max,minSubaaa(ByRefsum,ByRefmax,ByRefmin)min=100'给最小值先给一个比较大的值Fori=1To100s=Int(Rnd(1)*(67-0))

再问：谢了，能否把程序给提供一下，我不会再答：好吧！

dima(9)asintegerprivatesubcommand1_click()dimiasintegerrandomizefori=0to9a(i)=int(rnd*101)text1.text

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

Randomr=newRandom();//随机函数对象Listrs=newList();//存放能被3整除的数组intnum=0;for(inti=0;i{num=r.Next(100,300);/

Private Sub Form_Click()    Randomize    Dim 

#include<stdio.h>#include<stdlib.h>#include<time.h>#defineM20voidmain(){inta[M],i;

=INT(RAND()*11)*10

选择法：PrivateSubForm_Click()Dimi%,j%,a%(1To10)RandomizeFori=1To10a(i)=Int(101*Rnd)NextiFori=1To9k=iFor

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

PrivateSubForm_Click()Dima(30)AsIntegerDimiAsIntegerRandomizeFori=1To30a(i)=Int(100*Rnd)NextiFori=1T

Option ExplicitPrivate Sub Form_Load()RandomizeMe.AutoRedraw = TrueDim