Private Sub Form_Click()
Dim x As Double, y As Double, cc As String
x = InputBox("请输入 x = ？", "输入x", 0.5)
If x >= 0 Then
y = 2 * x + 2
Else
y = x * x + 2
End If
cc = "x = " & CStr(x) & " ；y = " & CStr(y) & "。"
MsgBox cc, 0 + 64, "计算结果"
End Sub