[填空題] 學(xué)生的某次課程測(cè)驗(yàn)中，選擇題的答案已記錄在列表框list1中，其數(shù)據(jù)行格式是:學(xué)號(hào)為6個(gè)字符長(zhǎng)度，2個(gè)空格，選擇題的答案為15個(gè)字符長(zhǎng)度，程序根據(jù)標(biāo)
2021-07-20
[填空題] 學(xué)生的某次課程測(cè)驗(yàn)中，選擇題的答案已記錄在列表框list1中，其數(shù)據(jù)行格式是:學(xué)號(hào)為6個(gè)字符長(zhǎng)度，2個(gè)空格，選擇題的答案為15個(gè)字符長(zhǎng)度，程序根據(jù)標(biāo)準(zhǔn)答案進(jìn)行批改，每答對(duì)一題給1分，并將得分存放到列表框list1中，標(biāo)準(zhǔn)答案存放在變量Exact中。Option ExplicitPrivate Sub Command1_click()Dim Anw as string , StudId as stringDim Scor as Integer, Exact as stringDim I as Integer, J as integerExact=”ABCCBAACBBDCCDA”For I=（）Anw=（）StudId=Left(Anw,6)Anw=Right(Anw,Len(Anw)-8)（）For J=1 to Len(Anw)If?（） ThenScor=Scor+1End IfNext JList2.AddItem StudId & “ “ & ScorNext IEnd Sub
正確答案：0 To Listl.ListCount-1；Listl.List(I)；Scor=0；Mid(Anw，J，1)=Mid(Exact，J，1)
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。