大家好，对VB 数组元素互换的简单示例感兴趣的小伙伴，下面一起跟随三零脚本的小编来看看VB 数组元素互换的简单示例的例子吧。

某数组有20个元素，元素的值由键盘输入，要求将第1个元素与第20个元素互换，第2个元素与第19个元素互换......第10个元素与第11个元素互换。输入数组原来各元素的值和对换后各元素的值。

'来自：三零脚本（www.q3060.com）
Dim a(1 To 20)
Private Sub Command1_Click()
s = 0
For i = 1 To 20
    s = s + 1
    a(i) = Val(InputBox("输入元素"))
    Label1.Caption = Label1.Caption & a(i)
        If i >= 1 And i <= 19 Then
            Label1.Caption = Label1.Caption & ","
        End If
If s = 10 Then
    Label1.Caption = Label1.Caption & vbCrLf
    s = 0
End If
Next
End Sub
Private Sub Command2_Click()
For i = 1 To 10
    For j = 20 To 11 Step -1
        If i + j = 21 Then
            t = a(i)
            a(i) = a(j)
            a(j) = t
        End If
    Next
Next
For i = 1 To 20
s = s + 1
    Label2.Caption = Label2.Caption & a(i)
    If i >= 1 And i <= 19 Then
        Label2.Caption = Label2.Caption & ","  
    End If
  If s = 10 Then
  Label2.Caption = Label2.Caption & vbCrLf
  s = 0
  End If
Next
End Sub