15.在一個數(shù)組中存儲了若干個同學(xué)的技術(shù)成績小題分,其中a(1)存儲學(xué)生個數(shù),a(2)開始按順序存儲小題分數(shù)據(jù)。每個學(xué)生有33個小題的數(shù)據(jù),例:a(2)~a(13)是學(xué)生1的信息選擇題得分,a(27)~a(30)是學(xué)生1的信息4個主觀題得分。具體如表
題號 |
1-12 |
13-25 |
26-29 |
30-33 |
科目題型 |
信息客觀題 |
通用客觀題 |
信息主觀題 |
通用主觀題 |
滿分分值 |
每題2分 |
每題2分 |
4/8/7/7 |
6/9/3/6 |
小李根據(jù)上述描述,設(shè)計了一個統(tǒng)計所有同學(xué)信息各題得分率的算法。程序運行后首先在列表框List1顯示信息技術(shù)各小題得分,單擊“計算”按鈕“Command1”,在列表框List2顯示信息各題的題號和得分率,在文本框Text1輸出所有同學(xué)的信息平均分(平均分=各題得分率*分值之和)。算法的VB程序如下,回答下列問題
(1)根據(jù)題目描述,使用如圖所示數(shù)據(jù),a(95)的數(shù)值是
。
(2)在程序橫線處填上合適代碼,使程序完整
Dima(1To1000)AsInteger,nAsInteger
PrivateSubCommand1_Click( ?。?br />DimiAsInteger,jAsInteger
Dimfz(1To16)AsInteger′fz數(shù)組存儲信息各題滿分值
Dimb(1To33)AsDouble′數(shù)組b存儲全卷各題的平均得分Fori=1To16‘數(shù)組fz存儲信息16個小題的滿分值
Ifi<=12Thenfz(i)=2
fz(13)=4:fz(14)=8:fz(15)=7:fz(16)=7Nexti
Fori=2Ton'把數(shù)組a數(shù)據(jù)分別統(tǒng)計到各題中
①b(j)=a(i)+b(j)Nexti
Fori=1To33′僅處理信息各題的平均分
Ifi<=12Then
b(i)=b(i)/(a(1)*fz(i))'計算信息選擇題各題的得分率ElseIfi>=26Andi<=29Then
b(i)=
②EndIf
Nexti
Fori=1To16
Ifi>12Thenj=i+13Elsej=i
b(j)=Int(b(j)*1000+0.5)/10′對結(jié)果四舍五入保留1位小數(shù)List2.AddItemStr(i)+Str(b(j))+″%'
ave=
③Nexti
Text1.Text=Str(ave/100)EndSub
PrivateSubForm _Load( )
‘讀入數(shù)據(jù)到數(shù)組a,數(shù)據(jù)個數(shù)n,代碼略
EndSub