首先，我们需要创建一个窗体应用程序，在窗体上添加几个控件：一个按钮用于触发计算过程，一个文本框用于显示结果，以及另一个文本框用于输入用户希望生成的随机数的数量。

接下来是代码部分：

```vb

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

' 定义变量

Dim numCount As Integer = CInt(txtNumbers.Text)

Dim numbers(numCount - 1) As Integer

Dim maxNumber As Integer = numbers(0)

Dim minNumber As Integer = numbers(0)

' 随机数生成器

Dim rand As New Random()

' 填充数组

For i As Integer = 0 To numCount - 1

numbers(i) = rand.Next(1, 1001) ' 生成1到1000之间的随机整数

Next

' 查找最大值与最小值

For Each number In numbers

If number > maxNumber Then

maxNumber = number

End If

If number < minNumber Then

minNumber = number

End If

Next

' 显示结果

txtResult.Text = "最大值: " & maxNumber.ToString() & ", 最小值: " & minNumber.ToString()

End Sub

```

这段代码首先从用户输入中获取想要生成的随机数数量，然后使用`Random`类来生成指定数量的随机整数。接着通过遍历数组来确定最大值和最小值，并将结果展示给用户。

这个程序简单直观，适合初学者理解和实践。同时，它也展示了如何利用循环结构处理数据集合，这对于学习更复杂的算法和程序设计模式非常有帮助。