小王編寫了一個(gè)統(tǒng)計(jì)多選題分?jǐn)?shù)的VB程序。得分規(guī)則是：多選題共有6個(gè)候選項(xiàng)（A、B、C、D、E、F），全部答對(duì)得2分，部分答對(duì)得1分，未作答或有錯(cuò)誤答案0分。設(shè)計(jì)一個(gè)能夠評(píng)分的程序，要求如下：在文本框Text1中輸入標(biāo)準(zhǔn)答案，在文本框Text2中輸入學(xué)生答案（輸入時(shí)必須按字母從小到大順序輸入）。點(diǎn)擊評(píng)分按鈕Command1后，將得分顯示在標(biāo)簽Label4中。程序界面如題圖所示：
（1）要使程序運(yùn)行后，窗體Form1的標(biāo)題欄中顯示“評(píng)分”，正確的做法是

B

B

（單選，填字母）
A．將窗體的Text屬性改為“評(píng)分”
B．在Form_Load （　?。┦录休斎氪aForm1．Caption=“評(píng)分“
C．在Form1_Load （　?。┦录休斎氪a
Form.Name=“評(píng)分“
（2）實(shí)現(xiàn)上述功能的程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼：
Private Sub Command1_Click （　　）
Dim cans As String,ans As String,ch As String,c As Integer
Dim f（1To 6）As Boolean
cans=Text1．Text
ans=

①

①

c=0
For i=1To 6
f（64+i）=False
Next i
For i=1To Len（cans）
ch=Mid（cans,i,1）
f（Asc（ch）-64）=True
Next i
For i=1To

②

②

ch=Mid（ans,i,1）
If f（Asc（ch）-64）=False Then
Exit For
Else
c=c+1
End If
Next i
If c=0Then
Label4．Caption=“0分“
ElseIf c=Len（cans） Then
Label4．Caption=“2分“
Else
Label4．Caption=“1分“
End If
End Sub
（3）若去除加框處代碼，且將文本框Text2的內(nèi)容改為“BCD”，標(biāo)簽Label4顯示的內(nèi)容是

1分

1分

。