VB做 键盘输入一个数（任意实数）,利用分段函数计算y=x2+3(x>0),y=-5x+x2(x

VB做 键盘输入一个数（任意实数）,利用分段函数计算y=x2+3(x>0),y=-5x+x2(x

Private Sub Command1_Click()
i = Val(InputBox("input a number"))
If i 0 Then
y = x * 2 3
Else
y = -5 * x x * 2
End If
Print y
End Sub
Private Sub Form_Load()
Dim x,y As Double
x = InputBox("请输入实数","输入")
If x 0 Then
y = x ^ 2 3
Else
y = -5 * x x ^ 2
End If
MsgBox y
End Sub
Private Sub Command1_Click()
x = Val(InputBox("请输入一个实数","提示"))
If x 0 Then y = x ^ 2 3
If x = 0 Then y = -5 * x x ^ 2
Print "x = " x; " y = " y
End Sub
其实标题说是用分段函数,最佳就是用Select Case 语句
Sub GetValByAnyNumeric()
Dim X,Y As Double
X = Val(InputBox("请输入一个实数","提示","0"))
Select Case X
Case Is 0
Y = X ^ 2 3
Case Is = 0
Y = -5 * X X ^ 2
End Select
MsgBox "X = " X vbCrLf "Y = " Y
End Su