下面是简单实现，需要带入参数是大于等于1的正数自己防呆Private Sub Command1_Click #39调用实例 Dim str As String MsgBox return_str5End SubPrivate Function return_strnumber As Integer...