vb随机产生50个数存放于数组x中,按逆序输出各元素

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

#include#include#includeintarr[8][8];voidmain(){srand(time(0));inti,j;for(i=0;i

OptionBase1OptionExplicitDima(11)AsIntegerPrivateSubCommand1_Click()DimiAsIntegerPicture1.ClsPicture

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

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

'本人亲测可行Private Sub Form_CLICK()    Dim arr(9) As In

PrivateSubCommand1_Click()RandomizeDima(10)AsInteger,imasasinteger,iminasinteger,Averageasintegerima

PrivateSubCommand1_Click()RandomizeDima(1To10)Dimmax,min,avemin=50:max=20Fori=1To10a(i)=Int(Rnd*21+3

#include#include#includeintmain(){srand((unsigned)time(0));intArray[10];inti=0;doublesum=0;intMax=-1

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

Dima%(1To6,1To6),b%(1To6,1To6)PrivateSubCommand1_Click()Fori=1To5Forj=1To5a(i,j)=Int(Rnd*90+10)Pictu

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

第一题：Optionbase1PrivateSubForm_Click()Dima(4,5)asinteger,iasinteger,jasinteger,sasintegerdima_aveassi

是的!

dima(30)fori=1to30a(i)=int(rnd(97+3))ifisprime(a(i))=truethenprinta(i);nextifunctionisprime(xasinteg

Dima(10)AsIntegerDimi%,j%,t%RandomizFori=1To10a(i)=Int(Rnd*90+10)Printa(i);NextPrintFori=1To9Forj=i+

Private Sub Form_Click()    Randomize    Dim 

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

#include#includeintmian(void){intarr[50]={0};srand((unsignedint)time(NULL));intnIndex=0;for(;nIndex{

Randomizea=int(rnd*6)+50