VB编程:以下程序用随机函数产生10个整数存放于一个数组中,找出最小的数及其下标

PrivateSubform_Click()DimxAsInteger,yAsIntegerx=Val(InputBox("请输入x值:"))Ifx

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

dima,max,min,sum,averagesum=0max=20min=50fori=1to20a=(Rnd*50)+50sum=sum+aifamaxthenmax=aprintanextpr

Dima(1To20)AsIntegerPrivateSubCommand1_Click()ClsScale(0,0)-(100,100)Foru=1To20a(u)=Int(Rnd*50)+50b=

简单就是不会再问：....再答：不是不会是好久没做了差不多都忘了呵呵

privatesubcommand1_click()fori=1to15randomizea=int(Rnd*20)+80ifi=1thenmax=a:min=aifmaxathenmin=aprin

FunctionV圆柱(半径AsSingle,高AsSingle)AsSingleV圆柱=3.1415927*半径^2*高EndFunction

Dimk%Dima%(1To10)PrivateSubCommand1_Click()Fori=1To10Randomizea(i)=Int(Rnd*100+1)NextPrint"a数组:"k=1F

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

把这几个符号先存到数组里用随机函数PrivateSubForm_Load()DimS(1To4)AsStringDimaAsIntegerRandomizeS(1)="+":S(2)="-":S(3)

PrivateSubForm_Click()Dima()AsIntegerDimi,j,max,n,mRandomize(time)n=InputBox("n=")m=InputBox("m=")Re

DimmAsInteger,nAsIntegerPrivateSubCommand1_Click()m=Val(InputBox("输入正整数"))n=Val(InputBox("输入正整数"))If

以下是画一元二次方程的图的代码：（假设y=a*x^2+b*x+c,将窗口的大小调为4800×4800）PrivateSubCommand1_Click()ClsLine(0,2400)-(4800,2

PrivateSubCommand1_Click()c=InputBox("","","")Fora=1To100b=Int(Rnd*99)IfInt(Right(Str(b),1))=Int(c)T

publicintswitchTest(intx){intflag=0;if(x-5){flag=1;}elseif(x==0){flag=2;}elseif(x>0&&xflag=3;}switch

窗体上放个CommandButton和两个Label：PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,nAsIntegerLabel1.Capti

PrivateSubForm_Click()Dimi,min,nClsFori=1To3Randomizen=Int(Rnd*100)+1Printn,Ifi=1Thenmin=nElseIfmin>

int(a)是返回一个小于或等于a的整数.rnd*90也就是产生0-90之间的数,不包括0和99.rnd*90+10是产生10-100之间的数,不包括10和100.int(rnd*90)是产生0-89

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

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