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