在考生文件夹下有一个工程文件ylc.vbp。在标题为“数组转换窗口”的窗体上创建两个命令按钮,名字分别为Command1和Command2,标题分别为“数据导入”和“数据存盘”。单击“数据导入”按钮后,应用对话框连续输入12个整数,并放入数组Array中。单击“数据存盘”,将该数组的前6个元素与后6个元素互换;即第1个与第12个,第2个与第11个元素互换,依此类推。最后互换前后的数组输出到考生文件夹下的data.txt文件中。程序运行界面如图31所示。要求实现题目给出的功能,并将文件保存在考生文件夹下,工程文件名为ylc.vbp。
参考答案:(A)Visual Basic集成环境中,执行“文件”→“打开工程”命令,选择ylc.vbp文件打开。
(B)在工具箱中选择单选按钮控件,在窗体上创建两个命令按钮,名字分别为CommandA和CommandB,标题分别为“数据导入”和“数据存盘”。
(C)双击“数据导入”按钮,弹出代码窗口,在其中添加如下代码:
Dim ArrayA(A To AB) As Integer
Private Sub CommandA_Click()
For i=A To AB
ArrayA(i)=InputBox("请输入数据")
Next i
End Sub
(D)编写savedata过程,把文件中的数值读到指定的数组中保存事件。其代码如下;
Sub SaveData(str As String)
Open App.Path &"\"&"out.txt"For Output As #A
Print count
Close #A
End Sub
(E)双击“数据存盘”按钮,弹出代码窗口,在其中添加如下代码:
Private Sub CommandB_Click()
Dim temp As String
Dim m As Integer
For i=A To F
temp=Array(i)
ArrayA(i)=ArrayA(AB-i+A)
ArrayA(AB-i+A)=temp
Next i
For i=A To AB
m=m&" "& CStr(ArrayA(AB-i+A))
Next i
For i=A To AB
m=m&" "&CStr(ArrayA(i))
Next i
Call SaveData("data.txt",m)
End Sub
(F)按FE键运行程序。如图CA所示。
(G)执行“文件”→“保存工程”命令,将工程文件命名为ylc.vbp,窗体文件命名为ylc.frm。
解析: 本题主要考查了数组的操作和文件输出的实现。利用InputBox函数弹出对话框来输入数组元素,然后交换其中的数据。题中数组有12个元素,因此需要交换6次。