16．在一個(gè)數(shù)組中存儲(chǔ)了若干個(gè)學(xué)生的技術(shù)成績(jī)小題分，其中a（1）存儲(chǔ)學(xué)生個(gè)數(shù)，從a（2）開(kāi)始按順序存儲(chǔ)小題分?jǐn)?shù)據(jù)。每個(gè)學(xué)生有33個(gè)小題的數(shù)據(jù)，例：a（2）-a（13）是“學(xué)生1”的信息客觀題得分，a（27）-a（30）是“學(xué)生1”的信息主觀題得分；a（14）-a（26）是“學(xué)生1”的通用客觀題得分，a（31）-a（34）是“學(xué)生1”的通用主觀題得分。
具體如表：
| 題號(hào) |
1-12 |
13-25 |
26-29 |
30-33 |
| 科目題型 |
信息客觀題 |
通用客觀題 |
信息主觀題 |
通用主觀題 |
| 滿(mǎn)分分值 |
每題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ù)值是
。
（2）在程序橫線(xiàn)處填上合適代碼，使程序完整
Dim a（1 To 1000）As Integer,n As Integer
Private Sub Form_Load （ ）
‘讀入數(shù)據(jù)到數(shù)組a,數(shù)據(jù)個(gè)數(shù)n,代碼略
End Sub
Private Sub Command1_Click （ ?。?br />Dim i As Integer,j As Integer
Dim fz（1 To 16）As Integer'fz數(shù)組存儲(chǔ)信息各題滿(mǎn)分值
Dim b（1 To 33）As Single'數(shù)組b存儲(chǔ)全卷各題的平均得分
For i=1 To 16'數(shù)組fz存儲(chǔ)信息16個(gè)小題的滿(mǎn)分值
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ì)到各題中，計(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
