[求助]怎么返回不了的呢？？？
Public Sub n(x As Double)
Dim sum As Double
sum = 1
For i = 1 To x
sum = i * sum
n = sum
Next i
End Sub
Public Sub m(y As Double)
Dim sum1 As Double
sum1 = 1
For j = 1 To y
sum1 = j * sum1
m = sum1
Next j
End Sub
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
a = Text2.Text
b = Text3.Text
Call n(a)
Call m(b)
c = m(b) + n(a)
Text1.Text = c
End sub
要怎样返回 n 和 m
请教各位高手
