要找出数组中的最大值，可以使用循环遍历数组，比较每个元素的大小，记录下最大的值。可以使用以下代码来实现：
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即为数组中的最大值。
