VB select case怎么应用

来源:百度知道 编辑:UC知道 时间:2024/05/12 17:16:04
为什么我点两次同一个command都是跳出来1 而没有0呢 请大虾帮忙
Private Sub Command1_Click(Index As Integer)
Dim u(99) As Integer
Select Case u(Index)
Case 1
u(Index) = 0
MsgBox (u(Index))
Case Else
u(Index) = 1
MsgBox (u(Index))
End Select
End Sub

问题不在select case,而是因为:
Dim u(99) As Integer 是定义在过程中的
即,每点一次就重新定义一个数组,建议放到外面

为什么还要定义那个数组啊?u(99),控件本身不就是数组了吗
Private Sub Command1_Click(Index As Integer)
Select Case Index)
Case 1
msgbox 1
Case Else
MsgBox Index
End Select
End Sub