vb程序吧 关注:124贴子:247
  • 1回复贴,共1
哪位高手知道这个程序有什么错误
Private Sub Command1_Click()
Dim a()
ReDim a(n)
a(0) = 96
For i = 1 To n
If a(i) > 1000 Then
Text3.Text = a(i - 1)
Else
a(i - 1) = a(i - 2) + 5
End If
Next i
End Sub


1楼2010-10-03 10:06回复
    你a(0)=96定义来有什么用,变量名i你定义没有,你这句for i=1 to n.....next i是有限循环还是无限循环,如果是有限循环那么n等于多少,还有if....else...end if中else后面没有输出语句,for i=1 to n.....next i 和if...else.....end if 这两句是嵌套语句还是独立语句,如果是嵌套语句那么if a(i)>1000中a(i)改为a(n),如不是a(i)中的i最好改为其他变量名。


    2楼2012-08-17 14:17
    回复