[多项选择题] 在窗体上创建三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“导入数据”、“计算”和“保存数据”，以及一个文本框，名称为Text1。编写事件过程

[多项选择题] 在窗体上创建三个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“导入数据”、“计算”和“保存数据”，以及一个文本框，名称为Text1。编写事件过程，使得在运行时，单击“导入数据”按钮，从考生文件里读入data.txt文件(其中有20个整数)，在Text1中显示。单击“计算”，采用冒泡算法排序。单击“保存数据”，存入out.txt文件中。程序运行界面如图29所示。

参考答案：

Visual Basic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体FormA。 (B)在工具箱中选择文本框控件，在窗体建立一个文本框TextA，将其Text属性设为空。 (C)在工具箱中选择命令按钮控件，在窗体上创建三个命令按钮，名称分别为 CommandA、CommandB和CommandC，标题分别为“导入数据”、“计算”和“保存数据”。 (D)双击“导入数据”按钮，弹出代码窗口，在其中添加如下代码； Private Sub CommandA_Click() Dim a As String Call FindData(a) TextA.Text=a End Sub Sub FindData(a As String) Open App.Path & ""& "data.txt"For Input As #A Do While Not EOF(A) Input #A，a Loop Close #A End Sub (E)双击“计算”按钮，弹出代码窗口，在其中添加如下代码： Private Sub CommandB_Click() Sub sort(a()As Integer) Dim n As Integer For i=A To AE For j=A To AE-i If (a(j)＞a(j+A))Then n=a(j) a(j)=a(j+A) a(j+A)=n End If Next i Next i End Sub (F)双击“保存数据”按钮，弹出代码窗口，在其中添加如下代码： Private Sub CommandC_Click() Call SaveData(TextA.Text) End Sub Sub SaveData(str As String) Open App．Path & "" & "out.txt" For Output As #A Print #A, a Close #A End Sub (G)按FE键运行程序。如图BI所示。 (H)执行“文件”→“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为 ylc.frm。

问题解析:

(1)该题与上机模拟题十二在基本操作上类似，都考查了文件的读入操作并在文本框中输出；对顺序文件的读入和输出的操作等。 (2)该题重点考查了利用冒泡算法对数组元素进行排序。