vb随机函数1.doc

《vb随机函数1.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1、设定一个最大值x,让Label1.caption在1到x中滚动DimxAsIntegerPrivateSubForm_Load()x=InputBox("请输入需设定数的最大值。","键入数值",0)EndSubPrivateSubCommand1_Click()Timer1.Enabled=NotTimer1.EnabledEndSubPrivateSubTimer1_Timer()RandomizeLabel1.Caption=Int((Rnd()*x)+1)EndSub1）VB用随机函数产生20个两位数的整数，存于4行

2、5列的二维数组中，并求出其中的最大元素及它的行、列坐标，将数组按行（矩阵形式）输出到窗体，最大元素及行、列下标输出在数组的下方。OptionExplicitOptionBase1Dima%(80),i%,k%,t%,b%(80)PrivateSubCommand1_Click()Me.Cls6DimjAsIntegerRandomizeFori=1To80a(i)=Int(Rnd*90)+10Nextik=0t=1Fori=1To79b(i)=Abs(a(i+1)-a(i))Ifb(i)>kThenk=b(i)t=iEndIfN

3、extiPrint"全部"Fori=1To80Printa(i);6IfiMod10=0ThenPrintNextiPrint"最大差值:"&k&",是"&a(t+1)&"和"&a(t)&"之差"EndSubOptionBase1PrivateSubForm_Click()Dima(4,5)AsInteger,iAsInteger,jAsInteger,sAsInteger,nAsInteger,mAsIntegerDima_aveAsSingleRandomizeFori=1To4Forj=1To5a(i,j)=Int(91*

4、Rnd+10)PrintFormat(a(i,j),"@@@@@@");NextjPrintNextis=a(1,1)6Fori=1To4Forj=1To5Ifa(i,j)

5、Integer,jAsInteger,sAsInteger,nAsInteger,mAsIntegerDima_aveAsSingle6RandomizeFori=1To4Forj=1To5a(i,j)=Int(200*Rnd+101)PrintFormat(a(i,j),"@@@@@@@@@");NextjPrintNextis=a(1,1)Fori=1To4Forj=1To5Ifa(i,j)

6、;m;"列"RandomizeFori=1To46Forj=1To5a(i,j)=Int(40*Rnd+30)PrintFormat(a(i,j),"@@@@@@@@@");NextjPrintNextis=a(1,1)Fori=1To4Forj=1To5Ifa(i,j)