[填空题] 下面是程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下：　　　　程序不完整，请填空，将程序的补充完整　　Option Explicit　　Dim x As Si

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

【13】x＞0 And y＞0

【14】x＜0 And y＞0【15】Else解析：本题用了块IF结构根据题目给出的程序可知【13】、【14】是填条件语句的，根据Then后面的内容可以确定：【13】应填入x＞0 And y＞0；【14】应填入x＜0 And y＞0；函数除了满足上述条件的都是“其他”，所以【15】应为Else。s