新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Dim lngA&
    lngA = 1.5
    Debug.Print lngA
End Sub

运行结果：

2

原来会四舍五入，但不会出错，所以不用检查是否是小数。