Question

vb中获取function返回值

Answer 1

Private Function f(x As Double) As Double '函数：f(x)=x^2+1
f = x ^ 2 + 1 '返回f
End Function
Private Sub Command1_Click() '调用
Dim y As Double, x As Double
x = 2
y = f(x) '调用f(x),返回值赋给变量y
Print y
End Sub

Answer 2

Private Function f(x As Double) As Double '函数：f(x)=x^2+1
    f = x ^ 2 + 1 '返回f
End Function
Private Sub Command1_Click() '调用
    Dim y As Double, x As Double
    x = 2
    y = f(x) '调用f(x),返回值赋给变量y
    Print y
End Sub

Answer 3

Private Function f(x As Double) As Double '函数：f(x)=x^2+1
f = x ^ 2 + 1 '返回f
End Function
Private Sub Command1_Click() '调用
Dim y As Double, x As Double
x = 2
y = f(x) '调用f(x),返回值赋给变量y
Print y
End Sub