2. 计算机
  3. 在考生文件夹下有一个工程文件ylc.vbp。在标题为“数组转换窗口”的窗体上创建两个命令按钮，名字分别为Command1和Command2，标题分别为“数据导入”和“数据存盘”。单击“数据导入”按钮后，应用对话框连续输入12个整数，并放入数组Array中。

在考生文件夹下有一个工程文件ylc.vbp。在标题为“数组转换窗口”的窗体上创建两个命令按钮，名字分别为Command1和Command2，标题分别为“数据导入”和“数据存盘”。单击“数据导入”按钮后，应用对话框连续输入12个整数，并放入数组Array中。

admin2009-03-17  69
问题 在考生文件夹下有一个工程文件ylc.vbp。在标题为“数组转换窗口”的窗体上创建两个命令按钮，名字分别为Command1和Command2，标题分别为“数据导入”和“数据存盘”。单击“数据导入”按钮后，应用对话框连续输入12个整数，并放入数组Array中。单击“数据存盘”，将该数组的前6个元素与后6个元素互换；即第1个与第12个，第2个与第11个元素互换，依此类推。最后互换前后的数组输出到考生文件夹下的data.txt文件中。程序运行界面如图31所示。要求实现题目给出的功能，并将文件保存在考生文件夹下，工程文件名为ylc.Vbp。
选项
答案(1)Visual Basic集成环境中，执行“文件”→“打开工程”命令，选择ylc.vbp文件打开。 (2)在工具箱中选择单选按钮控件，在窗体上创建两个命令按钮，名字分别为Command1和Command2，标题分别为“数据导入”和“数据存盘”。 (3)双击“数据导入”按钮，弹出代码窗口，在其中添加如下代码： Dim Array1(1 To 12) As Integer Private Sub Command1_Click() For i=1 To 12 Array1(i)=InputBox("请输入数据") Next i End Sub (4)编写savedata过程，把文件中的数值读到指定的数组中保存事件。其代码如下； Sub SaveData(str As String) Open App.Path &"\"&"out.txt"For Output As #1 Print count Close #1 End Sub (5)双击“数据存盘”按钮，弹出代码窗口，在其中添加如下代码： Private Sub Command2_Click() Dim temp As String Dim m As Integer For i=1 To 6 temp=Array(i) Array1(i)=Array1(12-i+1) Array1(12-i+1)=temp Next i For i=1 To 12 m=m&" "& CStr(Array1(12-i+1)) Next i For i=1 To 12 m=m&" "&CStr(Array1(i)) Next i Call SaveData("data.txt",m) End Sub (6)按F5键运行程序。如图31所示。 (7)执行“文件”→“保存工程”命令，将工程文件命名为ylc.vbp，窗体文件命名为ylc.frm。
解析 本题主要考查了数组的操作和文件输出的实现。利用InputBox函数弹出对话框来输入数组元素，然后交换其中的数据。题中数组有12个元素，因此需要交换6次。
转载请注明原文地址:https://www.kaotiyun.com/show/Ok1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)