第1题
在窗体上有一个过程函数,然后编写如下事件程序,该过程的功能是用选择交换法将10个数排成升序,请在空白处填入适当的语句。 Sub SORT( ) Dim a(1 To 10) For i=1 To 10 a(i)=Val(InputBox(" " ," ",0)) Next i For i=【 】 k=i For j=【 】 If a(k)>a(j)Then【 】 If k< >i Then b=a(k) a(k)=a(i) a(i) =b End If Next j Next i For k=1 To 10 Print a(k) Next k End Sub
请帮忙给出正确答案和分析,谢谢!
第2题
建立随机文件Workers.dat。存取职工的姓名和职工号,然后把该文件中的数据读出显示。请在空白处填入适当的语句。 Type Worker name As String*8 number As Integer End Type Open"e:\Workers.dat"For Random As 1 Len=Len(Workerl) Workerl.name="zn":Worker1.number=100 【 】 Close 1 Open"Workers.dat"For Random As 1 Len=Len(Worker1) 【 】 Print"Worker1:",Worker1.name Print "Worker1:",Worker1.number Close 1
请帮忙给出正确答案和分析,谢谢!
第4题
下面是程序是计算给定函数的值,自变量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
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!