2、雙擊窗體，在Load事件中寫入如下程式碼：

Randomize

For i = 1 To 10

a(i) = Int(Rnd * 101 + 100)

Lbl1.Caption = Lbl1.Caption & a(i) & " "

Next i

3、在通用對話方塊對陣列進行定義，使其成為窗體級變數：Dim a(1 To 10) As Integer

i = InputBox("請輸入需要交換的首個元素下標", "輸入待交換元素序號")

j = InputBox("請輸入需要交換的第二個元素下標", "輸入待交換元素序號")

t = a(i) "將 a(i)賦值給中間變數t

a(i) = a(j)

a(j) = t

Lbl1.Caption = ""

For i = 1 To 10

Lbl1.Caption = Lbl1.Caption & a(i) & " "

Next i

5、關閉程式碼視窗，按下F5執行程式，產生10個隨機數，標籤中顯示10個數：

7、緊接著又彈出一個輸入對話方塊，要求輸入需要交換的下一個元素下標，這裡輸入2，注意觀察原來第一和第二個元素，如圖：