Private Sub Form_Load()
Dim a As Integer
a = aa(3) ' 返回函数值 ..
MsgBox (a)
End Sub
Public Function aa(ByVal a1 As Integer) As Integer
Dim c As Integer
c = a1 + 2
Return c '为什么return 这里 出错 ?
End Function
Private Sub Form_Load()
Dim a As Integer
a = aa(3) ' 返回函数值 ..
MsgBox (a)
End Sub
Public Function aa(ByVal a1 As Integer) As Integer
Dim c As Integer
c = a1 + 2
Return c '为什么return 这里 出错 ?
End Function