1. (2021高二上·临河月考) 下面程序输入X的值，按以下公式求Y的值。

 

Private Sub Command1_Click( )

    X=Val(Text1.Text)

    Select Case X

        Case  

            Print “出错”

        Case Is<0

            Y=100-X

        Case 0 To 100

            Y=100+X

        Case   

            Y=400

    End Select

    Text2.Text=X

End Sub