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

参考答案： VisualBasic集成环境中，执行“文件”→“新建工程”命令，选择“标准Exe”。创建窗体FormA。(B)在工具箱中选择文本框控件，在窗体建立一个文本框TextA，将其Text属性设为空。(C)在工具箱中选择命令按钮控件，在窗体上创建三个命令按钮，名称分别为CommandA、CommandB和CommandC，标题分别为“导入数据”、“计算”和“保存数据”。(D)双击“导入数据”按钮，弹出代码窗口，在其中添加如下代码；PrivateSubCommandA_Click()DimaAsStringCallFindData(a)TextA.Text=aEndSubSubFindData(aAsString)OpenApp.Path&""&"data.txt"ForInputAs#ADoWhileNotEOF(A)Input#A，aLoopClose#AEndSub(E)双击“计算”按钮，弹出代码窗口，在其中添加如下代码：PrivateSubCommandB_Click()Subsort(a()AsInteger)DimnAsIntegerFori=AToAEForj=AToAE-iIf(a(j)＞a(j+A))Thenn=a(j)a(j)=a(j+A)a(j+A)=nEndIfNextiNextiEndSub(F)双击“保存数据”按钮，弹出代码窗口，在其中添加如下代码：PrivateSubCommandC_Click()CallSaveData(TextA.Text)EndSubSubSaveData(strAsString)OpenApp．Path&""&"out.txt"ForOutputAs#APrint#A,aClose#AEndSub(G)按FE键运行程序。如图BI所示。(H)执行“文件”→“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为ylc.frm。