Private Sub Form_Load()
Dim i As Integer
i = InputBox("请输入0-7之间的八进制数")
Text1.Text = i
If i > 7 And i < 0 Then
MsgBox ("输入非法，请重新输入！")
End If
End Sub
但为什么我输入8以后他没有提示还是显示的8呢？
大虾们帮忙，谢谢！

这是你的逻辑错误：

复制内容到剪贴板

代码:

If i > 7 And i < 0 Then
    MsgBox ("输入非法，请重新输入！")
End If

i既大于7又小于0的数存在吗？显然是不存在的，所以这个if语句不成立。应改为：

复制内容到剪贴板

代码:

If i > 7 or i < 0 Then
    MsgBox ("输入非法，请重新输入！")
End If

逻辑错误,在我们这些人当，是很普便存在的，二楼缉证的很对，我也是刚开始学，希望我们以后有机会就来“黑X”这讨论。:handshake :handshake

顶个                                          .

对了对了，不好意思，谢谢喽！

我记得And 和 Or 不是用 && 和 || 表示的嘛？？

这段代码难道是Vbscrip?:(