打印

[提问] 这段代码怎么回事,大虾们帮忙看看,谢谢!

这段代码怎么回事,大虾们帮忙看看,谢谢!

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呢?
大虾们帮忙,谢谢!

TOP

这是你的逻辑错误:
复制内容到剪贴板
代码:
If i > 7 And i < 0 Then
    MsgBox ("输入非法,请重新输入!")
End If
i既大于7又小于0的数存在吗?显然是不存在的,所以这个if语句不成立。应改为:
复制内容到剪贴板
代码:
If i > 7 or i < 0 Then
    MsgBox ("输入非法,请重新输入!")
End If
本帖最近评分记录
  • flyli 金币 +10 我很赞同 2006-12-21 14:37
逻辑错误,在我们这些人当,是很普便存在的,二楼缉证的很对,我也是刚开始学,希望我们以后有机会就来“黑X”这讨论。:handshake :handshake

TOP

顶个                                          .
*干死小日本*
对了对了,不好意思,谢谢喽!

TOP

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

这段代码难道是Vbscrip?:(
黑白博客:http://bwskyer.519it.net

Processed in 0.053908 second(s), 6 queries, Gzip enabled