在一個(gè)數(shù)組中存儲(chǔ)了若干個(gè)同學(xué)的技術(shù)成績(jī)小題分，其中a（1）存儲(chǔ)學(xué)生個(gè)數(shù)，a（2）開始按順序存儲(chǔ)小題分?jǐn)?shù)據(jù)。每個(gè)學(xué)生有33個(gè)小題的數(shù)據(jù)，例：a（2）～a（13）是學(xué)生1的信息選擇題得分，a（27）～a（30）是學(xué)生1的信息4個(gè)主觀題得分。具體如下表

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

小李根據(jù)上述描述，設(shè)計(jì)了一個(gè)統(tǒng)計(jì)所有同學(xué)信息各題得分率的算法。程序運(yùn)行后首先在列表框list1顯示信息技術(shù)各小題得分，單擊“計(jì)算”按鈕“command1”，在列表框list2顯示信息各題的題號(hào)和得分率，在文本框text1輸出所有同學(xué)的信息平均分（平均分=各題得分率*各題分值的和）。算法的VB程序如下，回答下列問(wèn)題。

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

1

1

。
（2）在程序橫線處填上合適代碼，使程序完整
Dim a（1 To 1000）As Integer,n As Integer
Private Sub Command1_Click（　?。?br />Dim i As Integer,j As Integer
Dim fz（1 To 16）As Integer'fz數(shù)組存儲(chǔ)信息各題滿分值
Dim b（1 To 33）As Double'數(shù)組b存儲(chǔ)全卷各題的得分率
For i=1 To 16‘?dāng)?shù)組fz存儲(chǔ)信息16個(gè)小題的滿分值
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'把數(shù)組a數(shù)據(jù)分別統(tǒng)計(jì)到各題中

①

①

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））’計(jì)算信息選擇題各題的得分率
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'對(duì)結(jié)果四舍五入保留1位小數(shù)
List2．AddItem Str（i）+Str（b（j））+“%“
ave=

③

③

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