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 次。