第2题
在窗体上添加一个文本框控件Info,画一个命令按钮,当单击命令按钮显示“保存文件”对话框,设置该对话框可用于保存文本文件(默认)和可执行文件(.exe),然后在文本控件中显示保存的文件名。 Private Sub Command1_Click( ) CommonDialog1.Filter=【 】 CommonDialog1.FilterIndex=【 】 CommonDialog1.ShowSave Info.Text=【 】 End Sub
请帮忙给出正确答案和分析,谢谢!
第3题
在窗体上有一个过程函数,然后编写如下事件程序,该过程的功能是用选择交换法将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
请帮忙给出正确答案和分析,谢谢!
第4题
建立随机文件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
请帮忙给出正确答案和分析,谢谢!
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!