2.計算機程式--- If 二選一語法練習

Private Sub Command5_Click( )
    Rem 班級:機一乙學號10014*** 姓名:***
    Dim x as single
Dim y as single
    x = InputBox("請輸入任意數字x=", ,3 )
    If x < 5 Then
        y = 7 * x + 10
    Else
        y = 3 * x ^ 2 - 5
    End If
    Print "輸入數字為: "; x; Spc(3); "對應的值為="; y
End Sub