【正确答案】(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次。