运行效果: 1、正整数取整:​​

2、负整数取整:


学习心得:

   1、从例子中可以看到:

   Int()按照数轴向下取整;

   CInt()四舍五入,取了最近的一个整数;

   Fix()无论什么情况,只取整数部分。


程序代码:

Private Sub Command1_Click()

If Text1.Text <> "" Then

       Text2.Text = Int(Text1.Text)

       Text3.Text = CInt(Text1.Text)

       Text4.Text = Fix(Text1.Text)

   End If

End Sub