运行效果：

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