2,463
社区成员
发帖
与我相关
我的任务
分享
Sub test()
Dim n As Integer
Dim y As Double
Dim x As Double
'输入 值
n = 5
Select Case n
Case 1, 2, 3
y = x ^ 2 + 1
Debug.Print y
Case 5
y = x ^ (1 / 3) - 5
Case Is >= 8
y = x ^ 3 + x ^ 2 - 1
End Select
MsgBox y '输出答案
End Su
b