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 函数出错

debug.print "函数值为：" ; Int(a)  'x?

谢了！  大佬

这段代码是用来干嘛的啊  看不懂啊

点击按钮执行相应的函数呗