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

pingjia.jye.ai

pingjia.jye.ai

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

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