最新帖子 精华区 社区服务 会员列表 统计排行
主题 : 下标越界 什么意思?
h6252996 离线
级别: 新手上路
显示用户信息 
0  发表于: 2008-11-16 16:32

下标越界 什么意思?

购买流程:注册论坛账号------->在线充值购买论坛交易币------->下载毕业设计将直接扣除交易币
数列第一项 为 0  第二项为1  以后各项都是前两项的和 编写程序求第N项的值..


我编的代码如下:

Private Function shulie(n) As Integer
ReDim a(n)
a(i - 2) = 0
a(i - 1) = 1
For i = 3 To n
a(i) = a(i - 2) + a(i - 1)
a(i - 2) = a(i - 1)
a(i - 1) = a(i)
Next i
shulie = a(i)

End Function


Private Sub Form_Click()
Dim m As Integer
Dim Sn As Integer

m = Val(InputBox("请输入数值"))
Sn = shulie(m)
Print Sn

End Sub


运行之后 出现"下标越界"  请问是哪出现了问题  该怎么改??






学业无望 离线
级别: 新手上路
显示用户信息 
1  发表于: 2009-01-04 17:54
购买流程:注册论坛账号------->在线充值购买论坛交易币------->下载毕业设计将直接扣除交易币
    

不是我无知,而是你无能.
快速回复 顶端
内容
HTML 代码不可用
使用签名
Wind Code自动转换

验证问题:本站域名是什么?答案:cccbbs.net  正确答案:cccbbs.net
按"Ctrl+Enter"直接提交