vb编程，求大神

Sub fact(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, m As Single, n As Single) '……此部分照搬原来的End SubPrivate Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim m As Single, n As Single a = Val(text1.Text)