vb 一個分段函數 編程錯誤

題目：

vb 一個分段函數 編程錯誤
我用的 vb6.0版的 編一個分段函數 如下
Private Sub form_Click()
Dim x As Integer,y As Integer
x = Val(InputBox("請輸入x值:"))
If x

解答：

Private Sub form_Click()
Dim x As Integer, y As Integer
x = Val(InputBox("請輸入x值:"))
If x