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
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