运行效果：
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
