在一個數組中存儲了若干個同學的技術成績小題分，其中a（1）存儲學生個數，a（2）開始按順序存儲小題分數據。每個學生有33個小題的數據，例：a（2）～a（13）是學生1的信息選擇題得分，a（27）～a（30）是學生1的信息4個主觀題得分。具體如下表

題號	1-12	13-25	26-29	30-33
科目題型	信息客觀題	通用客觀題	信息主觀題	通用主觀題
滿分分值	每題2分	每題2分	4/8/7/7	6/9/3/6

小李根據上述描述，設計了一個統計所有同學信息各題得分率的算法。程序運行后首先在列表框list1顯示信息技術各小題得分，單擊“計算”按鈕“command1”，在列表框list2顯示信息各題的題號和得分率，在文本框text1輸出所有同學的信息平均分（平均分=各題得分率*各題分值的和）。算法的VB程序如下，回答下列問題。

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

1

1

。
（2）在程序橫線處填上合適代碼，使程序完整
Dim a（1 To 1000）As Integer,n As Integer
Private Sub Command1_Click（　　）
Dim i As Integer,j As Integer
Dim fz（1 To 16）As Integer'fz數組存儲信息各題滿分值
Dim b（1 To 33）As Double'數組b存儲全卷各題的得分率
For i=1 To 16‘數組fz存儲信息16個小題的滿分值
If i＜=12 Then fz（i）=2
fz（13）=4：fz（14）=8：fz（15）=7：fz（16）=7
Next i
For i=2 To n'把數組a數據分別統計到各題中

①

①

b（j）=a（i ）+b（j）
Next i
For i=1 To 33'僅處理信息各題的平均分
If i＜=12 Then
b（i）=b（i）/（a（1）*fz（i））’計算信息選擇題各題的得分率
ElseIf i＞=26 And i＜=29 Then
b（i）=

②

②

End If
Next i
For i=1 To 16
If i＞12 Then j=i+13 Else j=i
b（j）=Int（b（j）*1000+0.5）/10'對結果四舍五入保留1位小數
List2．AddItem Str（i）+Str（b（j））+“%“
ave=

③

③

Next i
Text1．Text=Str（ave/100）
End Sub
Private Sub Form_Load（　　）
‘讀入數據到數組a,數據個數n,代碼略
End Sub