(10) 下面的程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下：

　　f(x,y) =

　　程序不完整，请填空，将程序的补充完整。

　　Option Explicit

　　Dim x As Single

　　Dim y As Single

　　Dim z As Single

　　Private Sub Command1_Click()

　　x=Val(InputBox("x=") )

　　y=Val(InputBox("y=") )

　　End Sub

　　Private Sub Command2_Click()

　　If 【13】 Then

　　z=x ^ 2 + y ^ 2

　　ElseIf 【14】 Then

　　z=x ^ 2 - 2 * y ^ 2

　　【15】

　　z=y ^ 2 - 3 * x ^ 2

　　End If

　　Form1.Print "当x，y的值为："; x, y

　　Form1.Print "f(x,y) 的值为："; z

　　End Sub

　　正确答案: 1.(x > 0 And y > 0) 2.(x < 0 And y > 0) 3.(Else)