VB2010(12)_数组

Public Class Form1
'定义一个全局数组
Dim strFriendsArray(4) As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
strFriendsArray(0) = "Wendy_0"
strFriendsArray(1) = "Harriet_1"
strFriendsArray(2) = "Jay_2"
strFriendsArray(3) = "Michelle_3"
strFriendsArray(4) = "Richard_4"
End Sub
'清表
Private Sub btnClearListbox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearListbox.Click
ClearList()
End Sub
'列表
Private Sub btnArrayElement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnArrayElement.Click
ClearList()

        For Each strName As String In strFriendsArray
lstFriends.Items.Add(strName)
Next
End Sub
'数组作参数
Private Sub btnArraysAsParameters_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnArraysAsParameters.Click
ClearList()

        AddItemsToList(strFriendsArray)
End Sub
'过程，清表
Private Sub ClearList()
lstFriends.Items.Clear()
End Sub
'过程，添加列表项
Private Sub AddItemsToList(ByVal arrayList() As String)
For Each strName As String In arrayList
lstFriends.Items.Add(strName)
Next
End Sub

    Private Sub btnMoreArrayParametes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMoreArrayParametes.Click
ClearList()

        Dim strMoreFriendsArray(1) As String

        strMoreFriendsArray(0) = "B0"
strMoreFriendsArray(1) = "B1"

        AddItemsToList(strFriendsArray)
AddItemsToList(strMoreFriendsArray)
End Sub

    Private Sub btnSortingArrays_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSortingArrays.Click
ClearList()

        Array.Sort(strFriendsArray)

        AddItemsToList(strFriendsArray)
End Sub

    Private Sub btnReversingAnArray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReversingAnArray.Click
ClearList()

        Array.Reverse(strFriendsArray)

        AddItemsToList(strFriendsArray)
End Sub
End Class