大家帮我看看下面的程序，主要完成下面的功能： 1、如果输入的数是一个素数，那么显示该数是一个素数，重新输入； 2、非素数写出乘积的形式； 我主要运用的是function过程和goto 语句，我想还可以简化，大家帮我看看吧！谢谢了！ Function mysh(ByVal m As Integer) As Boolean For i = 2 To m - 1 If m Mod i = 0 Then mysh = False Exit Function End If Next i mysh = True

End Function Private Sub Form_Click() start: n = Val(InputBox("请输入一个正整数：")) Print If mysh(n) = True Then MsgBox n & "是一个素数" GoTo start End If Print n; "="; For i = 2 To n - 1 Do While n Mod i = 0 n = n / i Print i; If n <> 1 Then Print "*"; Loop Next i End Sub