Dim a As Double
Private Sub Command1_Click()
a = Val(Text1.Text)
MsgBox "函数值为：" & Fix(a)
End Sub

Private Sub Command2_Click()
a = Val(Text1.Text)
MsgBox "函数值为：" & Int(x)
End Sub

Private Sub Command3_Click()
a = Val(Text1.Text)
MsgBox "函数值为：" & Abs(a)
End Sub

Private Sub Command4_Click()
a = Val(Text1.Text)
MsgBox "函数值为：" & Sgn(a)
End Sub

Private Sub Command5_Click()
a = Val(Text1.Text)
MsgBox "函数值为：" & Sqr(a)
End Sub

测试的时候 int 函数出错

谢了！  大佬