填空题

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

　　程序不完整，请填空，将程序的补充完整
　　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=") )
　　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