设有一个10个元素的数组,下列程序将该数组的第一个元素与第十个元素交换,第二个元素与第九个元素交换……,第五个元素与第六个元素交换,请补充完该程序。 Private Sub Commnd1_Click() Dim a(1

admin2010-03-30  28

问题 设有一个10个元素的数组,下列程序将该数组的第一个元素与第十个元素交换,第二个元素与第九个元素交换……,第五个元素与第六个元素交换,请补充完该程序。
   Private Sub Commnd1_Click()
               Dim a(1 To 10)As Integer
               Dim i As Integer
               Dim p As Integer
               Dim t As Integer
               Dim j As Integer
               For i=1 To 10
                   a(i)=i
               Next i
               For j=1 To 5
             【   】
             【   】
             【   】
               Next j
               For i=1 To 10
                    Print a(i)
               Next i
   End Sub

选项

答案t=a(j) , a(j)=a(10-j+1) ,a(10-j+1)=t

解析
转载请注明原文地址:https://kaotiyun.com/show/YY1p777K
0

最新回复(0)