For loop VisualBasic案例为第一次迭代后的下一次停止选择Inside

这对我来说似乎是一件微不足道的事情，但我无法让它发挥作用。有人知道为什么下面的代码只返回一个带有“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

---

您正在为每个case语句的z指定一个新值

只需使用：

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