運作效果:
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