for-loop - Visual Basic 案例在第一次迭代后选择内部进行下一步停止

Question

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