Dim i, n As Integer
n = N ‘我就当作无穷的意思，其实不能定义无穷不然死循环
For i = 1 To n
MsgBox(speak("楼主水笔", "楼上水笔", "全是水笔"))
Next
i += i End Sub
Public Function speak(ByRef a As String, ByRef b As String, ByRef c As String)
Return c
End Function
不好意思，前面手机加的尾巴，语法确实写错了，哈哈。勿怪。@76951609
@胱腚肿菊屁股痒 @u1993