UC知道为什么下界越标
来源：百度知道 编辑：UC知道 时间：2024/05/15 11:01:24
private sub form_click( )
dim num () as ingeter
num(1)=1
num(2)=1
n=val(inputbox("请输入要查询的数："))
redim num ()
for i=3 to n step1
num(i)=num(i-1)+num(i-2)
next i
for i=1 to n
print "结果是:";num(n)
end sub
dim num () as ingeter
num(1)=1
num(2)=1
n=val(inputbox("请输入要查询的数："))
redim num ()
for i=3 to n step1
num(i)=num(i-1)+num(i-2)
next i
for i=1 to n
print "结果是:";num(n)
end sub
不太明白你的意图，但你的程序里面有很多错误，下面是我调试过的程序，你可以试下。
Dim num() As Integer
Dim n As Integer
Dim i As Integer
n = Val(InputBox("请输入要查询的数："))
ReDim num(n)
num(0) = 1
num(1) = 1
For i = 2 To n
num(i) = num(i - 1) + num(i - 2)
Next i
For i = 0 To n
Print "结果是:"; num(i)
Next