Private Sub Command1_Click()Dim x As Single, y As Singlex = Val(InputBox(""))If x <> 0 Then y = Sin(x) + Sqr(x ^ 3 + 1)Else y = Cos(x) - x ^ 2 + 3 * xEnd IfMsgBox yEnd Sub
