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