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
请教各位高手

你定义的是过程，改成函数

Call n(a)
Call m(b)
c = m(b) + n(a)

n=n(a)
m=m(a)
这样吗？？？？

Public Function n(x As Double) As Long
Dim sum As Double
sum = 1
For i = 1 To x
sum = i * sum
n = sum
Next i
End Function
Public Function m(y As Double) As Long
Dim sum1 As Double
sum1 = 1
For j = 1 To y
sum1 = j * sum1
m = sum1
Next j
End Function
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

哦
终于明白了
谢了
一直都搞错了。。。。
我真菜啊！

jcj820303朋友：

下面这这两条语句是否多余？？？？
Call n(a)
Call m(b)