Private Sub Command1_Click()x = InputBox("请输入x：")e = 2.718281828Select Case xCase -10 To -1y = e ^ x + 1Case 0 To 5y = Abs(x ^ 2 - 100)Case 6 To 9y = 3 * x ^ 3 ...