Question

vb小白求解释一段代码 各位高人求指教！！！！

Private Sub Command2 Click()
Dim n As Integer, t As String, word num As Integer
n = Len(s): t = ""
For i = 1 To n
　　 c = Mid(s, i, 1)
　　 If c <> " " Then
　　　　 t = t + c
　　 Else
　　　　 If foundhuiwen(t) Then
　　　　　　word num = word num + 1
　　　　 End If
　　　　 t = ""
　　 End If
Next i
Text1.Text = word num
End Sub

Answer 1

Private Sub Command2_Click()
Dim n As Integer, t As String, word_num As Integer '定义几个变量
n = Len(s): t = "" 'n赋值为变量s的字符数；t赋值为空
For i = 1 To n '以i为循环变量循环
c = Mid(s, i, 1) '遍历s的每一个字符，用c暂时记录
If c <> " " Then '如果c不是空格
t = t + c 't就将c并入其后面
Else '否则
If foundhuiwen(t) Then '###############
word_num = word_num + 1 '###############
End If '###############
t = "" '将t重新置空
End If '
Next i '下一个
Text1.Text = word_num '文本框重新赋值
End Sub

【由于核心函数foundhuiwen不知道，所以无法推断代码功能】

Answer 2

求字符串s中以空格分割后的子串为回文的数量

Answer 3

把foundhuiwen(t) 代码贴出来一下！