某學(xué)校要對班主任進(jìn)行滿意度調(diào)查，有20個(gè)評分項(xiàng)（為方便程序處理，評分項(xiàng)具體的名稱本題中不顯示，僅以序號代替），每個(gè)評分項(xiàng)學(xué)生可以打A、B、C 三個(gè)等級中的一個(gè)，現(xiàn)在已經(jīng)收集所有學(xué)生對班主任的評價(jià)，為了保證隱私，不顯示學(xué)生姓名，只顯示班級，并存儲在數(shù)據(jù)庫的表中，點(diǎn)擊command2（讀取數(shù)據(jù)），讀取原始數(shù)據(jù)顯示在左側(cè)list1中，左側(cè)列表顯示的原始評價(jià)數(shù)據(jù)第一條表示高二（01）班有1位同學(xué)在第9項(xiàng)給班主任打A，依此類推，點(diǎn)擊command1（統(tǒng)計(jì)），統(tǒng)計(jì)出各項(xiàng)目的評價(jià)統(tǒng)計(jì)（A+B所占的百分比）。
（1）根據(jù)以下代碼可知，本程序訪問的數(shù)據(jù)庫名稱是

pingjia.accdb

pingjia.accdb

（2）完成橫線處的代碼填空

Dim classname（1 To 8000）As String‘存儲原始數(shù)據(jù)中的班級名稱
Dim selectabc（1 To 8000）As String‘存儲原始數(shù)據(jù)選項(xiàng)的值
Dim xiangmu（1 To 8000）As String‘存儲原始數(shù)據(jù)選項(xiàng)的序號
Dim n  As Integer
Private Sub Command2_Click （　　）′從數(shù)據(jù)庫讀取數(shù)據(jù)，并且按班級名稱排序
Dim conn As New ADODB．Connection
conn.ConnectionString=″provider=microsoft.ace.oledb.12.0；data source=″&App.Path&“\pingjia.accdb″
conn.Open
Dim rs As New ADODB．Recordset
Set rs.ActiveConnection=conn
rs.Open″select*from data″
n=0′記錄評價(jià)的總條數(shù)
′讀取數(shù)據(jù)，并按班級排序，代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim cstart（1 To 50）As Integer'存儲每個(gè)班級在數(shù)組classname中的起始位置
Dim cend（1 To 50）As Integer'存儲每個(gè)班級在數(shù)組classname中的末尾位置
Dim k As Integer'存儲班級數(shù)量
Dim testall（1 To 20）As Integer'存儲每一項(xiàng)總選擇人數(shù)，例如testall（1）里存儲這評價(jià)項(xiàng)目1里的總?cè)藬?shù)，testc（1）里存儲評價(jià)項(xiàng)目1里選C的人數(shù)
Dim testc（1 To 20）As Integer'存儲每一題（項(xiàng)）選c的人數(shù)
'確定每個(gè)班級的起止位置，存儲到cstart數(shù)組和cend數(shù)組
cstart（1）=1
temp=classname（1）
k=1
For i=1 To n
If classname（i）＜＞temp Then
①
k=k+1
cstart（k）=i
temp=classname（i）
End If
Next
cend（k）=n
For i=1 To k'每個(gè)班級分別統(tǒng)計(jì)評價(jià)項(xiàng)目
②
For q=1 To 20'對testall和testc數(shù)組初始化，
testall（q）=0
testc（q）=0
Next
For j=cstart（i） To cend（i）'對第i個(gè)班級進(jìn)行統(tǒng)計(jì)
testall（xiangmu（j））=testall（xiangmu（j））+1
If selectabc（j）=″C″Then③
Next
For p=1 To 20'統(tǒng)計(jì)完成后輸出這個(gè)班級的20個(gè)項(xiàng)目的  A+B所占百分比
s=s &″″&Str（Round（（testall（p）-testc（p））/testall（p）*100，1））
Next
List2．AddItem s
Next
End Sub