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