vb 随机生成数 怎么输入数组

简单写一下代码流程dima(20)fori=0to19a(i)=inputbox(“输入第"+str(i+1)+"个数")nextisum=0fori=0to19sum=sum+a(i)nexti备注

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

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

dima(10)asintegerdimiasinteger,kasinteger,pasintegerdimmasintegerdimnasintegerfori=1to10a(i)=int(rnd

随机生成100个大写字母存于数组a中,并显示在text1中,字母间用空格隔开,在text2中输入一个大写字母,得出在数组a中出现的次数,在text3中显示.Privatearr(100)Private

规定利用Mod跟“/”来编码廷垃圾的,本来两个函数就搞定了.PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegerDimiAsInt

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

PrivateSubCommand1_Click()Dima(10,6)AsString*2,b(30)AsIntegerDimmaxAsInteger,maxiAsInteger,maxjAsInt

Toproducerandomintegersinagivenrange,usethisformula:Int((upperbound-lowerbound+1)*Rnd+lowerbound)Her

Dima%(4,5)PrivateSubCommand1_Click()'产生并输出Fori=1To4Forj=1To5a(i,j)=Int(Rnd*100)'[1,100]Printa(i,j);N

clear,clcnum=input('字符串的长度：\n');x=['0':'9''a':'z','A':'Z'];i=ceil(62*rand(1,num));fprintf('%s\n',x(i

PrivateSubCommand1_Click()DimIAsIntegerDimN(15)AsInteger,MAsIntegerRandomizeForI=1To15N(I)=Int(Rnd*1

#include#include#includevoidmain(){srand((unsigned)time(NULL));inta[15];inti;printf("随即产生的15个100~200

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

privatesubcommand1_click()randomizedimaasinteger,basinteger,casintegera=int(rnd*12)+1text1=adob=int(

int（rnd*11）表示0到10的整数int（rnd*1000）表示0到999的整数int（rnd*1001）表示0到1000的整数

楼主看看这个：Private Sub Command1_Click()   Dim aNum(19) As Long,&

Private Sub Command1_Click()    Dim a%(0 To 19), b

用RND函数产生随机数

楼主看看这个：Private Sub Command1_Click()   Dim aNum(9) As Long,&n