Private Function f(ByVal x As Integer) '定义函数f(x)
f = x + 5 '设置函数返回值
End Function
Private Sub Command1_Click()
MsgBox (f(6)) '调用函数
End Sub
Dim f(10)
For x = 0 To 9
f(x) = x + 5
Text1.Text = Text1.Text & f(x) & "|"
Next x
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024