VB中for没有next是什么错误

Question

Private Sub Command1_Click()
Dim a() As Long, i As Integer, n As Integer, m As Integer
For i = 0 To Op1.Count - 1
If Op1(i).Value = True Then
n = Val(Op1(i).Caption)
Exit For
End If
ReDim a(n)
a(1) = 1
a(2) = 1
For m = 3 To n
a(m) = a(m - 1) + a(m - 2)
Next
Text1.Text = a(n)
End Sub
急求急求啦，十分感谢

Answer 1

For和Next是成对出现的，你的代码中有两个For，却只有一个Next，当然错了！两个老公共用一个老婆么？

Answer 2

for没有next表示for循环结束，没有写next

vb中for语法

For<循环变量>=<初值>To<终值>[Step步长] 
　　<循环体> 
　　[Exit For] 
　　Next<循环变量>

如果只写了for，最后结束时没有写next，就会报for没有next的错误。

Answer 3

Private Sub Command1_Click()
Dim a() As Long, i As Integer, n As Integer, m As Integer
For i = 0 To Op1.Count - 1
If Op1(i).Value = True Then
n = Val(Op1(i).Caption)
Exit For
End If
--next-----------------------
ReDim a(n)
a(1) = 1
a(2) = 1
For m = 3 To n
a(m) = a(m - 1) + a(m - 2)
Next
Text1.Text = a(n)
End Sub本回答被网友采纳

Answer 4

语法：
for 变量 范围 to 范围
表达式
next 变量

Answer 5

是求
斐波那契数列
--next-----------------------

这个next，把-------去掉。