未分类题

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