新高考方案语文断句题答案判分

Function fenshu(cankao, stuans)
    If cankao = stuans Then
       defen = Len(stuans)
    ElseIf Len(stuans) > Len(cankao) Then
       defen = 0
    Else
       tempdf = 0
       For i = 1 To Len(stuans)
           If InStr(cankao, Mid(stuans, i, 1)) > 0 Then tempdf = tempdf + 1
       Next
       defen = tempdf
     End If
     fenshu = defen
End Function

Sub 判分()
    MsgBox fenshu("BCD", "BCDE")
End Sub