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
VB中for没有next是什么错误
答案:5 悬赏:70 手机版
解决时间 2021-12-30 11:07
- 提问者网友:椧運幽默
- 2021-12-29 16:47
最佳答案
- 五星知识达人网友:你哪知我潦倒为你
- 2022-01-09 23:06
for没有next表示for循环结束,没有写next
vb中for语法
For<循环变量>=<初值>To<终值>[Step步长]
<循环体>
[Exit For]
Next<循环变量>如果只写了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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯