填空题

下面是程序是计算给定函数的值，自变量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