VB中for没有next是什么错误

答案:5 悬赏:70 手机版

解决时间 2021-12-30 11:07

提问者网友：椧運幽默
2021-12-29 16:47

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

最佳答案

五星知识达人网友：你哪知我潦倒为你
2022-01-09 23:06

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

vb中for语法

For<循环变量>=<初值>To<终值>[Step步长]
　　<循环体>
　　[Exit For]
　　Next<循环变量>如果只写了for，最后结束时没有写next，就会报for没有next的错误。

全部回答

1楼网友：独钓一江月
2022-01-10 02:37

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

2楼网友：梦中风几里
2022-01-10 02:03

是求斐波那契数列 --next----------------------- 这个next，把-------去掉。

3楼网友：你哪知我潦倒为你
2022-01-10 00:56

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

4楼网友：琴狂剑也妄
2022-01-09 23:55

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息