Question

在vb中 ，输入一个正整数，编程判断该数是奇数还是偶数。 Private Sub Form_Click() Dim X As Integer

输入一个正整数，编程判断该数是奇数还是偶数。
Private Sub Form_Click()
Dim X As Integer
X = InputBox("输入一个正整数", "输入")
If X < 0 Or (X <> Int(X)) Then
MsgBox "请输入正整数"
ElseIf X Mod 2 <> 0 Then
Print "奇数"
Else
Print "偶数"
End If
End Sub
为什么这个VB程序在输入小数，比如是3.5时，不会弹出Msgbox，而是说这个数是偶数呢？？

Answer 1

Dim X As Integer
这句出的毛病。你直接把它定义成整数型变量，输入3.5直接四舍五入转换为4。把它换成Dim X As Single

Answer 2

应该加入
X =cint( InputBox("输入一个正整数", "输入"))
将输入数据转换为整数

Answer 3

X = InputBox("输入一个正整数", "输入")
在这里程序处理时与你预想的不符合，输入框在你输入的数据与被赋值数据类型不符合时会作一些你预想之外的处理，导致与你预想的不符合