下面是程序是计算给定函数的值,自变量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
第1题
在有下面一个程序段从文本框中输入数据,如果该数据满足条件,除以6余2,脓以5余3,则输出.否则,特焦点定位在文本框中,并清除文本框的内容。 Private Sub Command1_Click( ) num=Val(Text1.Text) If【 】Then Print num Else Text1.Text=" " 【 】 End If End Sub
请帮忙给出正确答案和分析,谢谢!
第2题
如果在D盘当前文件夹下已2经存在名为PIC.day的顺序文件,那么执行语句Open "D:\PIC.dat" For Append As 1 之后将【 】。
请帮忙给出正确答案和分析,谢谢!
第4题
有如下的程序片段,该程序片段的执行完后,共执行循环______次。 Private Sub command1_ Click() total =0 Counter = 1 do Print Counter total = total + Counter Print total, "111" Counter = Counter + 1 if total >= 10 then exit do End if Loop while Counter <= 10 End Sub
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!