Dim x As Integer, i As Integer
x = InputBox("请输入你要判断的数字")
If x