程序运行后，在文本框Text1中输入填涂的答案，每个答案以“，”结束，如果出现连续两个“，”，说明该题未作答；在文本框Text2中输入参考答案，每个答案以“，”结束，点击评分按钮，在标签Label3中输出最后得分。程序运行界面如图所示：

请回答下列问题：
（1）下列对象中，有Caption属性的是

A

A

（单选，填字母：A.Command1/B.Text1/C.List1）。
（2）实现按多选题评分标准的评分功能的VB程序如下，请在横线处填入合适的代码。
（3）程序中（*）处代码有错，请改正。

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

（　　）

（　　）

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=“总计“+Str（zf）+“分“
End Sub
Function xxsz（s As String）As String′将选项转换为对应四位二进制数，已知大写字母“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′读取每题选项
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