单选题 有下面程序代码：
Private Sub Command1_Click()
Dim a As String
a="COMPUTER" n=search(a, "T"):Print IIf(n=0, "未找到", n)
End Sub
Private Function search(str As String, ch As String)As Integer
For k=1 To Len(str)
c=Mid(str, k, 1)
If c=ch Then
search=k:Exit Function
End If
Next k
search=0
End Function
程序运行后，单击命令按钮Command1，输出结果是