Function DoTheMatch()
Dim IsMatch As Boolean
With MSHFlexGrid1
.TextMatrix(1, 4) = XiuJi(2, 1)'加入随机数
For i = 1 To 3
   If .TextMatrix(i, 1) = .TextMatrix(i, 4) Then
   IsMatch = True
   Else
   IsMatch = False
   End If
   
   If IsMatch = True Then
   .TextMatrix(i + 1, 4) = XiuJi(2, 1)
   Else
   Call ClearCol
   Call DoTheMatch
   End If
Next i
End With
Exit Function
End Function
我循环完子之后，我退不出来。为什么？

For 循环用Exit For 退出 Do While 循环用Exit Do　过程用Exit Sub　函数用Exit Function