在一個數(shù)組中存儲了若干個同學(xué)的技術(shù)成績小題分，其中a（1）存儲學(xué)生個數(shù)，a（2）開始按順序存儲小題分?jǐn)?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é)信息各題得分率的算法。程序運(yùn)行后首先在列表框List1顯示信息技術(shù)各小題得分，單擊“計算”按鈕“Command1”，在列表框List2顯示信息各題的題號和得分率，在文本框Text1輸出所有同學(xué)的信息平均分（平均分=各題得分率*分值之和）。算法的VB程序如下，回答下列問題

（1）根據(jù)題目描述，使用如圖所示數(shù)據(jù)，a（95）的數(shù)值是

1

1

。
（2）在程序橫線處填上合適代碼，使程序完整
Dima（1To1000）AsInteger,nAsInteger
PrivateSubCommand1_Click（　　）
DimiAsInteger,jAsInteger
Dimfz（1To16）AsInteger′fz數(shù)組存儲信息各題滿分值
Dimb（1To33）AsDouble′數(shù)組b存儲全卷各題的平均得分Fori=1To16‘?dāng)?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（　?。?br />‘讀入數(shù)據(jù)到數(shù)組a,數(shù)據(jù)個數(shù)n,代碼略
EndSub