交换数组中各元素 Private Sub Command2 Click 交换的要求就是将数组的第一个元素|End 和最后一个元素交换,第二个元 End Sub 素和倒数第二个元素交换,依此初始化按钮的代码: 类推。结果见图 Private Sub Command3 Click 交换按钮的代码 Fori=1 To 10 Private Sub Command1 Click TextIText=TextIText s(i)& For i=1 To 10\2 temp=S(1) Next i S(1)=s(10-i+ 1) End sub 10-1+ 1)=temp 初始化数组元素,可以使用 Next i Input Box()函数来输入数组元 For i= 1 To 10 素 Text2Text- Text2 Text s(i)& Private Sub Form Load Next i Fori= 1 To 10 End Sub S(i)=2*i-1 退出按钮的代码: Next i End sub交换数组中各元素 交换的要求就是将数组的第一个元素 和最后一个元素交换，第二个元 素和倒数第二个元素交换，依此 类推。结果见图： ‘交换按钮的代码： Private Sub Command1_Click() For i = 1 To 10 \ 2 temp = s(i) s(i) = s(10 - i + 1) s(10 - i + 1) = temp Next i For i = 1 To 10 Text2.Text = Text2.Text & s(i) & " " Next i End Sub ‘退出按钮的代码： Private Sub Command2_Click() End End Sub ‘初始化按钮的代码： Private Sub Command3_Click() For i = 1 To 10 Text1.Text = Text1.Text & s(i) & " " Next i End Sub ‘初始化数组元素，可以使用 InputBox（）函数来输入数组元 素 Private Sub Form_Load() For i = 1 To 10 s(i) = 2 * i - 1 Next i End Sub