3.計算機程式--- If 多選一語法練習

Private Sub Command2_Click( )
   Rem 班級:四技機一丙學號10014*** 姓名:***
   Dim x As Single
   Dim y As Single
   x = InputBox("請輸入任意數字x=", , 2)
   If x< 5 Then
        y = 2 * x ^ 2 + 5
   ElseIf 5 <= x And x < 10 Then
        y = 3 * x - 2
   ElseIf 10 <= x And x < 15 Then
        y = (3 * x + 4) / 2
   Else
        y = 5 * x - 3
   End If
   Print "輸入數字為: "; x; Spc(3); "對應的值為="; y
End Sub