学进去

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

请回答下列问题：
（1）下列对象中，有Caption属性的是_______（单选，填字母：A.Command1/B.Text1/C.List1）。
（2）实现按多选题评分标准的评分功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。_______
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_______Then
df=2
Else
For k=1 To 4
If 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）
_____
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
________
Else
Exit Function
End If
i=i+1
Loop
End Function