Question

VB程序设计题:输入x的值，按下式计算并输出y值 y=x+3（x大于3） y=x的

VB程序设计题:输入x的值，按下式计算并输出y值 y=x+3（x大于3） y=x的平方（x大于等于1并小于等于3） y=根号x（x大于0并小于1） y=0（x小于等于0） 请使用select case语句解答该题。求大神帮忙

Answer 1

Private Sub Command1_Click()
Dim x As Double
Dim y As Double
x = Val(InputBox("请输入x的值"))
Select Case x
    Case Is > 3
        y = x + 3
    Case 1 To 3
        y = x ^ 2
    Case 0 To 1
        y = Sqr(x)
    Case Is <= 0
        y = 0
End Select
Print y
End Sub