Visual Basic Case Select Inside For Next stopping after First iteration

Question

这对我来说似乎是一件微不足道的事情，但我无法让它发挥作用。有谁知道为什么下面的代码只是 returns 一个带有 "z = 0" 的消息框？非常感谢您的帮助。

For z As Integer = 0 To 5
    Select Case z
        Case z = 0
            MsgBox("z = " & z)
        Case z = 1
            MsgBox("z = " & z)
        Case z = 5
            MsgBox("z = " & z)
    End Select
Next

Answer 1

您正在为每个 case 语句分配一个新值。

只需使用：

For z As Integer = 0 To 5
    Select Case z
        Case 0
            MsgBox("z = " & z)
        Case 1
            MsgBox("z = " & z)
        Case 5
            MsgBox("z = " & z)
    End Select
Next