vb上機(jī)考試習(xí)題以及答案

1、VBVB上機(jī)考試上機(jī)考試1、利用隨機(jī)函數(shù)產(chǎn)生25個(gè)100到999之間的整數(shù)，構(gòu)成5?5的矩陣，輸出該矩陣。Dima(1To51To5)PrivateSubFm_Click()RomizeFi=1To5Fj=1To5a(ij)=Int(Rnd(9991001)100)Printa(ij)NextjPrintNextiEndSub2、利用隨機(jī)函數(shù)產(chǎn)生25個(gè)10到99之間的整數(shù)，求其平均值(要求保留3位小數(shù)，第4位四舍五入)。PrivateS

2、ubFm_Click()Fi=1To25a=Int(Rnd(99101)10)Printas=saNextiPrintAvg=s25PrintAvgEndSub3、在窗體上按下鼠標(biāo)的右鍵，記錄其坐標(biāo)。PrivateSubFm_Load()Label1.BderStyle=1Label1.Alignment=2EndSubPrivateSubFm_MouseDown(ButtonAsIntegerShiftAsIntegerXAsSing

3、leYAsSingle)IfButton=2ThenLabel1.Caption=X&““&YEndIfEndSubDimn%xAsStrings%PrivateSubFm_Click()n=Len(Text1.Text)x=Text1.TextFi=1TonIf(xi1)=““Thens=s1NextiPrint“共出現(xiàn)了“&s&“個(gè)空格“EndSub7、編程計(jì)算下列公式的值，其中n(10)為從鍵盤輸入的正整數(shù)。S=1!3!5!……(

4、2n1)!PrivateSubFm_Click()n=Val(InputBox(“請輸入一個(gè)不大于10的整數(shù)“))s=0Fi=1To2n1Step2p=1Fj=1Toip=pjNextjs=spNextiPrintsEndSub8、編程計(jì)算下列公式的值，其中n(10)為從鍵盤輸入的正整數(shù)。S=2!4!6!……(2n)!PrivateSubFm_Click()n=Val(InputBox(“請輸入一個(gè)不大于10的整數(shù)“))s=0Fi=2T