填空题：下面的程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下：f（x,y）=程序不完整，请填空，将

下面的程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下：
f（x,y）=
程序不完整，请填空，将程序的补充完整。
OptionExplicit
DimxAsSingle
DimyAsSingle
DimzAsSingle
PrivateSubCommand1_Click（）
x=Val（InputBox（"x="））
y=Val（InputBox（"y="））
EndSub
PrivateSubCommand2_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
EndIf
Form1.Print"当x，y的值为：";x,y
Form1.Print"f（x,y）的值为：";z
EndSub