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

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