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

pingjia.accdb

pingjia.accdb

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

Dim classname（1 To 8000）As String‘存儲(chǔ)原始數(shù)據(jù)中的班級(jí)名稱
Dim selectabc（1 To 8000）As String‘存儲(chǔ)原始數(shù)據(jù)選項(xiàng)的值
Dim xiangmu（1 To 8000）As String‘存儲(chǔ)原始數(shù)據(jù)選項(xiàng)的序號(hào)
Dim n  As Integer
Private Sub Command2_Click （　　）′從數(shù)據(jù)庫(kù)讀取數(shù)據(jù)，并且按班級(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′記錄評(píng)價(jià)的總條數(shù)
′讀取數(shù)據(jù)，并按班級(jí)排序，代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim cstart（1 To 50）As Integer'存儲(chǔ)每個(gè)班級(jí)在數(shù)組classname中的起始位置
Dim cend（1 To 50）As Integer'存儲(chǔ)每個(gè)班級(jí)在數(shù)組classname中的末尾位置
Dim k As Integer'存儲(chǔ)班級(jí)數(shù)量
Dim testall（1 To 20）As Integer'存儲(chǔ)每一項(xiàng)總選擇人數(shù)，例如testall（1）里存儲(chǔ)這評(píng)價(jià)項(xiàng)目1里的總?cè)藬?shù)，testc（1）里存儲(chǔ)評(píng)價(jià)項(xiàng)目1里選C的人數(shù)
Dim testc（1 To 20）As Integer'存儲(chǔ)每一題（項(xiàng)）選c的人數(shù)
'確定每個(gè)班級(jí)的起止位置，存儲(chǔ)到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è)班級(jí)分別統(tǒng)計(jì)評(píng)價(jià)項(xiàng)目
②
For q=1 To 20'對(duì)testall和testc數(shù)組初始化，
testall（q）=0
testc（q）=0
Next
For j=cstart（i） To cend（i）'對(duì)第i個(gè)班級(jí)進(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è)班級(jí)的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