Question

Vb编程，运行某工程时，用文本框输入x值，单击计算Y按钮Command1时，按以下公式计算Y？

运行某工程时，用文本框Text1输入X值，单击“计算Y”按钮Command1时，
按以下公式计算Y，并将计算结果显示于标签Label2中。完成“计算Y”按钮的
Click事件过程。y=
|x|
x≤0
x
x＞0

Answer 1

Dim a(1 To 50) As Integer

Private Sub Command1_Click()

  x = Val(Text1)

  If x <= 0 Then y = -x Else y = Sqr(x)

  Label2.Caption = y

End Sub

Private Sub Form_Load()

  Me.Caption = "计算分段函数"

  Text1 = ""

  Label1.Caption = "请输入x"

  Label2.Caption = ""

  Command1.Caption = "计算y"

End Sub