杭州交通信息网昆山前景学校:参数不可选
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/30 11:09:05
我想编一个函数，计算的数学表达式A(0)+A(1)*x+A(2)*x^2+…+A(N-1)*x^(N-1)+A(N)*x^N
所编程序如下：
Function Fun(a(), n, x)
s = 0
For k = n To 0 Step -1
s = s * x + a(k)
Next
Fun = s
End Function
Private Sub Form_Load()
Show
Dim n As Integer, s As Double, x As Double
n = Val(InputBox("请输入一个数字:"))
Print s
End Sub
但是在运行时，我输入任一数值，结果输出的结果都为0，请高手指教一下，谢谢！
computer_kill你好啊，我就是不会调用函数啊，请详细解答一下，麻烦你了
所编程序如下：
Function Fun(a(), n, x)
s = 0
For k = n To 0 Step -1
s = s * x + a(k)
Next
Fun = s
End Function
Private Sub Form_Load()
Show
Dim n As Integer, s As Double, x As Double
n = Val(InputBox("请输入一个数字:"))
Print s
End Sub
但是在运行时，我输入任一数值，结果输出的结果都为0，请高手指教一下，谢谢！
computer_kill你好啊，我就是不会调用函数啊，请详细解答一下，麻烦你了
第一 你函数的调用在哪？
第二 s是函数的局部变量，作用域为该函数，其他过程不能调用
在通用模块里定义s