Question

VB中如何定义函数再调用它

例如定义函数f(x)=x+5,然后我直接想调用函数得出诸如f(6),f(10)等于多少

Answer 1

Private Function f(ByVal x As Integer) '定义函数f(x)
    f = x + 5 '设置函数返回值
End Function
Private Sub Command1_Click()
    MsgBox (f(6)) '调用函数
End Sub

追问

调用的时候只能用Msgbox函数吗

追答

不用，直接调用f(6)就会得到返回值11，调用Msgbox只是为了将这个结果展示给你看。你也可以

Private Sub Command1_Click()
    Dim result As Integer
    result = f(6) '用result变量来接收返回值
    MsgBox (result)
End Sub

Answer 2

Dim f(10)
For x = 0 To 9
f(x) = x + 5
Text1.Text = Text1.Text & f(x) & "|"
Next x