要找出數組中的最大值，可以使用循環遍歷數組，比較每個元素的大小，記錄下最大的值。可以使用以下代碼來實現：
Dim array() As Integer = {1, 2, 3, 4, 5}
Dim max As Integer = array(0)
For i As Integer = 1 To array.Length - 1
If array(i) > max Then
max = array(i)
End If
Next
Console.WriteLine("數組中的最大值為：" & max)
在上述代碼中，首先定義了一個整型數組array，然后初始化了一個變量max為數組的第一個元素array(0)。然后通過循環遍歷數組，從第二個元素開始，依次與max比較，如果當前元素大于max，則將當前元素賦值給max。最后輸出max即為數組中的最大值。
