私有子命令1_Click()
x = Val(Text1)
如果x & lt= 0那麽y = -x否則y = Sqr(x)
標簽2。標題= y
末端接頭
私有子窗體_Load()
我。Caption = "計算分段函數"
Text1 = " "
Label1。Caption = "請輸入x "
標簽2。標題= " "
命令1。Caption = "計算y "