帮小弟看下 那地方出错了
Dim a As DoublePrivate 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 函数出错