新手问:窗体调用模块计算结果的有关问题
新手问:窗体调用模块计算结果的问题
为了方便理解,我写了这样的简单程序。
窗体:
Sub f()
Dim a As Integer
Dim b As Integer
a=1
b=2
Call f
x=f(a,b)
MsgBox "x=" & X
End Sub
模块:
Sub f(a As Integer, b As Integer)
f = a + b
End Sub
运行后程序无反应。问题可能比较多,请耐心指教。多谢!
------解决方案--------------------
窗体:
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim x As Integer
a = 1
b = 2
x = f(a, b)
MsgBox "x=" & x
End Sub
模块:
Public Function f(a As Integer, b As Integer) As Integer
f = a + b
End Function
运行后,点击窗体试试。
为了方便理解,我写了这样的简单程序。
窗体:
Sub f()
Dim a As Integer
Dim b As Integer
a=1
b=2
Call f
x=f(a,b)
MsgBox "x=" & X
End Sub
模块:
Sub f(a As Integer, b As Integer)
f = a + b
End Sub
运行后程序无反应。问题可能比较多,请耐心指教。多谢!
------解决方案--------------------
窗体:
Private Sub Form_Click()
Dim a As Integer
Dim b As Integer
Dim x As Integer
a = 1
b = 2
x = f(a, b)
MsgBox "x=" & x
End Sub
模块:
Public Function f(a As Integer, b As Integer) As Integer
f = a + b
End Function
运行后,点击窗体试试。