在线求注！！！

Question

Private Sub Command1_Click()
Dim a
Dim ba = 5.13
b = 1.243
MsgBox Int(a / b)
End Sub这样没错阿，结果是4你的浮点数是什么？

Answer 1

要注意Int(x.5)的返回值是x，而不是x+1。

Answer 2

Dim a, s, x As Single
s = 8.4
x = 0.4
a = s / x
a = Int(a)
MsgBox a

Answer 3

int()没有四舍五入的功能，他全是“舍”

Answer 4

请注意:
Dim a,b,c as Single 
不等于:
Dim a as Single,b as Single,c as Single

Answer 5

Private Sub Form_Load()
  Dim a As Double, s As Double, x As Double
  s = 8.4
  x = 0.4
  a = s / x
  a = Int(a)
  MsgBox a
End Sub