VB解析算法及程序实现 - 图文(2)

Function f(x As Integer) As Single ’ ① If x<=-1 Then f=x+2

ElseIf x>-1 And x<2 Then

f= Abs(x+3) ’② Else f=2*x End If End Function

Private Sub Command1_Click() Dim x As Single ,y As Single x=Val(Text1.Text) y=f(x)

Label3.Text=Str(y) ’ ③ End Sub

加框处代码有误，请修正。 （1）加框①处应改为 （2）加框②处应改为 （3）加框③处应改为