(選填:屬性/屬性值/對(duì)象名/方法/過程) (2)根據(jù)算法完成程序填空: Private Sub Command1_Click ( ) dim s as string,s1 as string,s2 as string dim i as integer,jinwei as integer,d as integer,t as integer s1=Text1.Text s2=Text2.Text s=““ jinwei=0 For i=Len(s1)To 1 Step-1 d=Val(Mid(s1,i,1)) t=① s=② jinwei=t\10 Next If jinwei<>0 Then s=③ List1.AddItem s1 &″*″& s2 &″=″& s End Sub
(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.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′記錄評(píng)價(jià)的總條數(shù) ′讀取數(shù)據(jù),并按班級(jí)排序,代碼略 End Sub Private Sub Command1_Click ( ) 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