[填空题] 下面是程序是计算给定函数的值,自变量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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)