Sub swap(b( As Integer) For i= 1 Ton/2 【10】 Next End Sub 上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10) 的值互换,a(2)与a(9)舶的值互换,……,请填空。 (9)在窗体上画一个通用对话框,其名称为 Common Dialog,然后画一个命令按钮,并编 写如下事件过程 Private Sub Commandl Click CommonDialogl. Filter="All Files( *)*. * Text Files &"(.txt)*. txt Batch Files(. bat).bat Common Dialogl FilterlIndex =1 Common l. ShowOpen Msg Box CommonDialogl FileName End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中 显示的是【11】;如果在对话框中选择d盘temp目录下的 tel.txt文件,然后单击 “确定”按钮,则在 MsgBox信息框中显示的提示信息是【12】_。 (10)以下程序的功能是:把顺序文件 smtextl, txt的内容全部读入内存,并在文本框 TextI 中显示出来。请填空。 Private Sub Command1 Click Dim in Data As string Text. Tex Open" smtextl txt"【13】As【14】 Do While【15】 Text1.Text= Text1. Text in Data End Sub 二级Ⅴ isual basic语言程序设计试卷第10页(共10页)二级 Visual Basic 语言程序设计试卷 第 10 页（共 10 页） Sub swap(b() As Integer) n = 【9】 For i = 1 To n / 2 t = b(i) b(i) = b(n) b(n) = t 【10】 Next End Sub 上述程序的功能是，通过调用过程 swap，调换数组中数值的存放位置，即 a(1)与 a(10) 的值互换，a(2)与 a(9)的值互换，……，请填空。 （9）在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编 写如下事件过程： Private Sub Command1_Click() CommonDialog1.Filter = "All Files(*.*)|*.*|Text Files" _ & "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialog1.FilterIndex = 1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中 显示的是 【11】 ；如果在对话框中选择 d 盘 temp 目录下的 tel.txt 文件，然后单击 “确定”按钮，则在 MsgBox 信息框中显示的提示信息是 【12】 。 （10）以下程序的功能是：把顺序文件 smtext1.txt 的内容全部读入内存，并在文本框 Text1 中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text = "" Open "smtext1.txt" 【13】 As 【14】 Do While 【15】 Input #2, inData Text1.Text = Text1.Text & inData Loop Close #2 End Sub