[問(wèn)答題] 完成下列問(wèn)題:在考生文件夾下有一個(gè)工程文件sjt3.vbp,相應(yīng)的窗體文件為sjt3.frm。其功能是產(chǎn)生20個(gè)0~1000的隨機(jī)數(shù),放入一個(gè)數(shù)組中
[問(wèn)答題] 完成下列問(wèn)題:
在考生文件夾下有一個(gè)工程文件sjt3.vbp,相應(yīng)的窗體文件為sjt3.frm。其功能是產(chǎn)生20個(gè)0~1000的隨機(jī)數(shù),放入一個(gè)數(shù)組中,然后輸出這20個(gè)整數(shù)的平均值。程序運(yùn)行后,單擊命令按鈕(名稱為Command1,標(biāo)題為“輸出平均值”),即可求出其平均值,并在窗體上顯示出來(lái)(如圖3所示)。這個(gè)程序不完整,清把它補(bǔ)充完整,并能正確運(yùn)行。
要求:在程序中的橫線處填寫正確的內(nèi)容,使其實(shí)現(xiàn)上述功能,但不能修改程序的其他部分,最后把修改后的文件按原文件名存盤。
[題目提供的源程序]
Option Base 1
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Aver As Single
Dim Sum As Integer, i
Randomize
For i=1 To 20
arrN(i)=Int(Rnd* (1) )
Next i
Sum= (2)
For i=1 To 20
Sum= (3)
Next i
Aver= (4)
Print Aver
End Sub
正確答案:[操作步驟] 第1步:打開工程sjt3.vbp。 第2步:修改程序。 第3步:調(diào)試、運(yùn)行并保存程序。 [1]1001 [2]0 [3]sum+arrN(i) [4]sum/20
參考解析:產(chǎn)生一個(gè)a~b之間的隨機(jī)整數(shù)的方法是:Int(Rnd*(b-a+1)+a)。累加求和時(shí)先設(shè)一個(gè)用于存儲(chǔ)總和的變量,該變量的初始值為0,如sum=0,累加的方法為sum=sum+m,其中m為需要累加的值??倲?shù)除以量的個(gè)數(shù)即可得到平均值。
詞條內(nèi)容僅供參考,如果您需要解決具體問(wèn)題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。