1、二级 VISUAL+BASIC 机试-53 及答案解析(总分：100.00，做题时间：90 分钟)1.在考生文件夹下有一个工程文件 ylc.vbp。在标题为“数组转换窗口”的窗体上创建两个命令按钮，名字分别为 Command1 和 Command2，标题分别为“数据导入”和“数据存盘”。单击“数据导入”按钮后，应用对话框连续输入 12 个整数，并放入数组 Array 中。单击“数据存盘”，将该数组的前 6 个元素与后6 个元素互换；即第 1 个与第 12 个，第 2 个与第 11 个元素互换，依此类推。最后互换前后的数组输出到考生文件夹下的 data.txt 文件中。程序运行界面如图 31 所
2、示。要求实现题目给出的功能，并将文件保存在考生文件夹下，工程文件名为 ylc.vbp。（分数：100.00）_二级 VISUAL+BASIC 机试-53 答案解析(总分：100.00，做题时间：90 分钟)1.在考生文件夹下有一个工程文件 ylc.vbp。在标题为“数组转换窗口”的窗体上创建两个命令按钮，名字分别为 Command1 和 Command2，标题分别为“数据导入”和“数据存盘”。单击“数据导入”按钮后，应用对话框连续输入 12 个整数，并放入数组 Array 中。单击“数据存盘”，将该数组的前 6 个元素与后6 个元素互换；即第 1 个与第 12 个，第 2 个与第 11 个元素
3、互换，依此类推。最后互换前后的数组输出到考生文件夹下的 data.txt 文件中。程序运行界面如图 31 所示。要求实现题目给出的功能，并将文件保存在考生文件夹下，工程文件名为 ylc.vbp。（分数：100.00）_正确答案：(1)Visual Basic 集成环境中，执行“文件”“打开工程”命令，选择 ylc.vbp 文件打开。(2)在工具箱中选择单选按钮控件，在窗体上创建两个命令按钮，名字分别为 Command1 和 Command2，标题分别为“数据导入”和“数据存盘”。(3)双击“数据导入”按钮，弹出代码窗口，在其中添加如下代码：Dim Array1(1 To 12) As Inte
4、gerPrivate Sub Command1_Click()For i=1 To 12Array1(i)=InputBox(“请输入数据“)Next iEnd Sub(4)编写 savedata 过程，把文件中的数值读到指定的数组中保存事件。其代码如下；Sub SaveData(str As String)Open App.Path &“/“&“out.txt“For Output As #1Print countClose #1End Sub(5)双击“数据存盘”按钮，弹出代码窗口，在其中添加如下代码：Private Sub Command2_Click()Dim temp As Stri
5、ngDim m As IntegerFor i=1 To 6temp=Array(i)Array1(i)=Array1(12-i+1)Array1(12-i+1)=tempNext iFor i=1 To 12m=m&“ “& CStr(Array1(12-i+1)Next iFor i=1 To 12m=m&“ “&CStr(Array1(i)Next iCall SaveData(“data.txt“,m)End Sub(6)按 F5 键运行程序。如图 31 所示。(7)执行“文件”“保存工程”命令，将工程文件命名为 ylc.vbp，窗体文件命名为 ylc.frm。)解析：解析 本题主要考查了数组的操作和文件输出的实现。利用 InputBox 函数弹出对话框来输入数组元素，然后交换其中的数据。题中数组有 12 个元素，因此需要交换 6 次。
