UC知道请教一个我愣是没弄懂的VB问题
来源：百度知道 编辑：UC知道 时间：2024/05/23 03:24:14
我想将list1中的项目移动到list2中,于是编写了如下代码,但程序总是报错,请问原因
Private Sub Command1_Click()
Do While List1.ListCount >= 0
List2.AddItem List1.List(0)
List1.RemoveItem 0
Loop
End Sub
我看的参考书上的正确代码如下:
Private Sub Command1_Click()
Do While List1.ListCount
List2.AddItem List1.List(0)
List1.RemoveItem 0
Loop
End Sub
附:DO WHILE LOOP后面直接跟一个参数(而不是比较语句)是什么意思
Private Sub Command1_Click()
Do While List1.ListCount >= 0
List2.AddItem List1.List(0)
List1.RemoveItem 0
Loop
End Sub
我看的参考书上的正确代码如下:
Private Sub Command1_Click()
Do While List1.ListCount
List2.AddItem List1.List(0)
List1.RemoveItem 0
Loop
End Sub
附:DO WHILE LOOP后面直接跟一个参数(而不是比较语句)是什么意思
1.楼主的do while 后面不能写=0，应该是 list1.listcount>0.
当listcount=0时，list1里面已经没有项目了，所以运行到0时会报错。
2.直接 “do while 整数变量” ，系统自动默认 "do while 整数变量>0" ,就像 “if 布尔变量”，系统自动默认"if 布尔变量=true "一样