会计从业科目表:写vb时出现错误：next没有for是怎么回事啊?

来源：百度文库编辑：高校问答时间：2024/05/09 20:41:30

Private Sub Command2_Click()
List2.Clear
i = 0
For i = 0 To 9
If Val(List1.List(i)) Mod 2 = 0 Then
List2.AddItem List1.List(i)
List1.RemoveItem i
Next i
End Sub
那我改了之后又有错误：无效的过程调用或参数
我用这段代码就行，为啥？
Private Sub Command2_Click()
i = 0
Do While i < List1.ListCount
If Val(List1.List(i)) Mod 2 = 0 Then
List2.AddItem List1.List(i)
List1.RemoveItem i
Else
i = i + 1
End If
Loop

你忘了在Next前加End If，

Private Sub Command2_Click()
List2.Clear
i = 0
For i = 0 To 9
If Val(List1.List(i)) Mod 2 = 0 Then
List2.AddItem List1.List(i)
List1.RemoveItem i
end if
Next i
End Sub

你忘记打END IF 了。因为在VB语言中IF与END IF是成对标记。

1、if……then……
2、if……then
……
else
……
end if
3、choose case
case
case else
end case

写vb时出现错误：next没有for是怎么回事啊? VB for next循环 [VB]为什么说我next without for vb 出现错误 VB.NET不知道循环次数,怎么用FOR,NEXT结构实现? 谁能告诉我:在打开一个VB窗体时出现这样的错误是为什么? VB中总是出现错误 for next to nothing是什么意思？ VB中对用户进行添加时总出现错误 VB调试时出现错误“text为只读”？