41数组一一维数组应用例题 例45产生10个整数到数组中,将其顺序颠倒后输出 Private Sub Form Click Const Length=10: Dim D( Length)As Integer, 1%, Temp ForI=1 To Length给数组赋值并输出 D()=14+I: Print d(①D; Next I D(1)与D(0)交换 Print: Print 换行 ForI=1 To Length/2交换 D(2)与D(9)交换 Temp=D() DO=D(Length-I+ 1) D()与D(10-+1) D(Length-I+ 1)=Temp Next I 与Form1 ForI=1 To Length交换后输出15161718192021222324 Print D(); 24232221201918171615 Next I End Sub 返回目录4.1 数组－一维数组应用例题 [例4.5] 产生10个整数到数组中，将其顺序颠倒后输出 Private Sub Form_Click() ConstLength = 10 : Dim D(Length) As Integer, I%, Temp% For I = 1 To Length '给数组赋值并输出 D(I) = 14 + I : Print D(I); Next I Print: Print '换行 For I = 1 To Length / 2 '交换 Temp = D(I) D(I) = D(Length - I + 1) D(Length - I + 1) = Temp Next I For I = 1 To Length '交换后输出 Print D(I); Next I End Sub 返回目录 D(1)与D(10)交换 D(2)与D(9)交换 … … D(I)与D(10-I+1)