n = InputBox("请输入一个数") Select Case n Case 7 To 1 Print "Hello" End Select n = InputBox("请输入一个数") Select Case n Case Is>1, Is < 6 Print "Hello" End Select n = InputBox("请输入一个数") Select Case n Case Is > 5, 1, 3 To 10 Print "Hello" End Select n=InputBox("请输入一个数") Select Case n Case 1, 5, Is > 9 Print "Hello" End Select