下面是程序是计算给定函数的值 自变量x y的值用InputBox函数输入 函数如下： 程序不完整
下面是程序是计算给定函数的值，自变量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【 】Then z=x ^ 2 + y ^ 2 ElseIf【 】Then z=x ^ 2-2 * y^2 【 】 z=y ^ 2 - 3 * x ^ 2 End If Form1．Print "当x，y 的值为："； x，y Form1．Print "f(x，y) 的值为:"： z End sub
请帮忙给出正确答案和分析，谢谢！
参考解答
495***264
2023-07-22 03:20:25
正确答案：答案
本题用了块IF结构根据题目给出的程序可知【】、【】是填条件语句的，根据Then后面的内容可以确定：【】应填入x＞0Andy＞0；【】应填入x＜0Andy＞0；函数除了满足上述条件的都是“其他”，所以【】应为Else。s
相似问题
下列程序的功能是：当x100时
下列程序的功能是：当x<50时，y=0．8×x；当50≤x≤100时，y=0．7×x；当x>100时，没有意义。请填空。 Private Sub Command1_Click() Dim x As Si
在窗体上画一个命令按钮 然后编写如下程序：(假定变量x是一个窗体级变量) Dim x As Inte
在窗体上画一个命令按钮，然后编写如下程序：(假定变量x是一个窗体级变量) Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private
程序执行结果S的值是【 】。 Private Sub Command1_Click() i=0 Do
程序执行结果S的值是【 】。 Private Sub Command1_Click() i=0 Do i=i+1 s=i+s Loop Until i＞=4 Print s End Sub请帮忙给出正确答案和分析，谢谢！
如果在D盘当前文件夹下已2经存在名为PIC.day的顺序文件 那么执行语句Open 'D:/PIC.
如果在D盘当前文件夹下已2经存在名为PIC day的顺序文件，那么执行语句Open "D: PIC dat " For Append As 1 之后将【 】。请帮忙给出正确答案和分析，谢谢！
以下变量名中 ______ 是不符合Visual Basic的命名规范的。A．Abc901C．pr
以下变量名中， ______ 是不符合Visual Basic的命名规范的。A．Abc901C．price_D．K请帮忙给出正确答案和分析，谢谢！
