程序運(yùn)行后，在文本框Text1中輸入填涂的答案，每個(gè)答案以“，”結(jié)束，如果出現(xiàn)連續(xù)兩個(gè)“，”，說明該題未作答；在文本框Text2中輸入?yún)⒖即鸢?，每個(gè)答案以“，”結(jié)束，點(diǎn)擊評(píng)分按鈕，在標(biāo)簽Label3中輸出最后得分。程序運(yùn)行界面如圖所示：

請(qǐng)回答下列問題：
（1）下列對(duì)象中，有Caption屬性的是

A

A

（單選，填字母：A.Command1/B.Text1/C.List1）。
（2）實(shí)現(xiàn)按多選題評(píng)分標(biāo)準(zhǔn)的評(píng)分功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
（3）程序中（*）處代碼有錯(cuò)，請(qǐng)改正。

Mid（tt1，k,1）＞Mid（ck1，k,1）或Mid（tt1，k,1）=“1“AndMid（ck1，k,1）=“0“

Mid（tt1，k,1）＞Mid（ck1，k,1）或Mid（tt1，k,1）=“1“AndMid（ck1，k,1）=“0“

Private Sub Command1_Click

（　?。?/div>

（　?。?/div>
Dim i As Integer,j As Integer
Dim ttda As String,ckda As String,tt As String,ck As String
ttda=Text1.Text
ckda=Text2-Text
i=1：j=1
Do While i＜=Len（ttda）And j＜=Len（ckda）
tt=midd（I，ttda）：ck=midd（j,ckda）
If Len（tt）＜＞0 Then
tt1=xxsz（tt）：ck1=xxsz（ck）
If

tt1=ck1

tt1=ck1

Then
df=2
Else
For k=1 To 4
If  Mid（ttl,k,l）?Mid（ckl,k,l） Then Exit For（*）
Next k
If k=5 Then df=1 Else df=0
End If
zf=ft+df
End If
i=i+Len（tt）+1：j=j+Len（ck）+1
Loop
Label3.Caption=“總計(jì)“+Str（zf）+“分“
End Sub
Function xxsz（s As String）As String′將選項(xiàng)轉(zhuǎn)換為對(duì)應(yīng)四位二進(jìn)制數(shù)，已知大寫字母“A“的ASCII碼值為65
t=“0000“
For i=1 To Len（s）

Mid（t,Asc（Mid（s,i,1））-64，1）=“1“或t=Mid（t,1，Asc（Mid（s,i,1））-64-1）+“1“+Mid（t,Asc（Mid（s,i,1））-64-1）

Mid（t,Asc（Mid（s,i,1））-64，1）=“1“或t=Mid（t,1，Asc（Mid（s,i,1））-64-1）+“1“+Mid（t,Asc（Mid（s,i,1））-64-1）

Next i
xxsz=t
End Function
Function midd（k As Integer,s As String）As String′讀取每題選項(xiàng)
Dim i As Integer
i=k
Do While i＜=Len（s）
If Mid（s,i,1）＜＞“，“Then

midd=midd+Mid（s,i,1）

midd=midd+Mid（s,i,1）

Else
Exit Function
End If
i=i+1
Loop
End Function