Question

按键精灵 Select Case

Select Case 变量
Case 0
Msgbox "你输入的数字为：0"
Case 1
Msgbox "你输入的数字为：1"
Case 2
Msgbox "你输入的数字为：2"
Case 3
Msgbox "你输入的数字为：3"
Case 4
Msgbox "你输入的数字为：4"
Case 5
Msgbox "你输入的数字为：5"
Case 6
Msgbox "你输入的数字为：6"
Case 7
Msgbox "你输入的数字为：7"
Case 8
Msgbox "你输入的数字为：8"
Case 9
Msgbox "你输入的数字为：9"
Case Else
Msgbox "你输入的数字不正确，请输入（0~9）数字！"
End Select

求教高手如何 实现 我按 1 就执行 case1 按2就执行case2 类似的一直到按 9 就执行case9

Answer 1

x = WaitKey()-48
Select Case x
Case 0
Msgbox "你输入的数字为：0"
Case 1
Msgbox "你输入的数字为：1"
Case 2
Msgbox "你输入的数字为：2"
Case 3
Msgbox "你输入的数字为：3"
Case 4
Msgbox "你输入的数字为：4"
Case 5
Msgbox "你输入的数字为：5"
Case 6
Msgbox "你输入的数字为：6"
Case 7
Msgbox "你输入的数字为：7"
Case 8
Msgbox "你输入的数字为：8"
Case 9
Msgbox "你输入的数字为：9"
Case Else
Msgbox "你输入的数字不正确，请输入（0~9）数字！"
End Select