' 陣列處理框架 Public Class Application ' 定義陣列變數 Private Shared myArray(10) As Integer ' 初始陣列內容 Private Shared Sub InitArray() Dim myRandomNumber As New Random() Dim i As Integer For i = 1 To UBound(Me.myArray) Me.myArray(i) = myRandomNumber.Next(1, 100) Next End Sub ' 查詢陣列內容 Private Shared Sub ListArray() Dim i As Integer For i = 1 To UBound(Me.myArray) System.Console.WriteLine("{0:00}:{1:000}", i, Me.myArray(i)) Next End Sub ' 處理陣列內容 Private Shared Sub ProcessArray() End Sub ' 主程式 Public Shared Sub Main() Call Me.InitArray() Call Me.ProcessArray() Call Me.ListArray() End Sub End Class