UC知道这个程序怎么只循环一次呢（VB）
来源：百度知道 编辑：UC知道 时间：2024/05/26 08:12:07
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 23
Label1.Caption = i + 1
If Val(Label1.Caption) > 23 Then
a = MsgBox("数字已经超出0~23范围", vbOKCancel, "错误提示")
End If
Next i
End Sub
当我点击了command的时候，它就直接显示的是24，然后弹出box，我的目的是要使每按一次command，label就会从1开始显示到24，最后才弹出box
程序类型不匹配是个什么错误啊，应该怎么改呢
Dim i As Integer
For i = 0 To 23
Label1.Caption = i + 1
If Val(Label1.Caption) > 23 Then
a = MsgBox("数字已经超出0~23范围", vbOKCancel, "错误提示")
End If
Next i
End Sub
当我点击了command的时候，它就直接显示的是24，然后弹出box，我的目的是要使每按一次command，label就会从1开始显示到24，最后才弹出box
程序类型不匹配是个什么错误啊，应该怎么改呢
是循环了24此，但是由于运算太快了，使得你看不出其中的变化。
如果你还不确定的话
你可以在Label1.Caption = i + 1的下面
msgbox Label1.Caption 就能看出来了
太快了
这个你应该用Timer控件做
每循环一次都休眠一段时间 就能看到效果了
vb.NET下
在循环体里面加上System.Threading.Thread.Sleep(500)
不清楚VB里面有没有 给你参考一下吧