房天下

Fang.com
房天下 > 房天下问答 > 业主生活 > 其他

  • vb 判断单数双数

    Option ExplicitPrivate Sub Form_Load()Dim n As IntegerDim a As DoubleDim b As Doublen = Val(InputBox("输入"))a = n / 2b = Int(n / 2)If n < 0 ThenPrint "错误"ElseIf a = b ThenPrint "双"ElsePrint "单"End IfEnd Sub上面是我自己用前面学到的选择结构的内容写出来的但是碰到1个问题，就是怎么设置 要是 n 同时满足 n>=0并且 n不能为带小数的？当输入是小数的时候也要出现错误提示~望各位前辈指点迷津！

    提问者：也许你知道

    发布于2010-12-08

共1个回答
  • violetear 丨Lv 0
    先用一个字符串变量接收输入，判断其中是否有小数点就好了。 Dim temp As String Dim n As Integer Do While 1 temp = InputBox("n") If InStr(temp, ".") Or temp = "" Then MsgBox "不能输入小数或为空，请重新输入！" Else n = CInt(temp) Exit Do End If Loop
    +11 2010-12-09 举报
热门人气推荐
推荐楼盘小区二手房商圈租房热门知识 相关推荐房产百科
免责声明：问答内容均来源于互联网用户，房天下对其内容不负责任，如有版权或其他问题可以联系房天下进行删除。