以下是一个用VB（Visual Basic）编写的程序，用于随机生成五组双色球号码。双色球号码由6个红色球号码（范围1-33）和1个蓝色球号码（范围1-16）组成。
```vb
Module Module1
Sub Main()
Dim rand As New Random()
Dim redNumbers(5) As Integer
Dim blueNumber As Integer
Console.WriteLine("随机生成的双色球号码：")
For i As Integer = 1 To 5
' 生成6个红色球号码
For j As Integer = 0 To 5
redNumbers(j) = rand.Next(1, 34)
' 确保红色球号码不重复
For k As Integer = 0 To j - 1
While redNumbers(j) = redNumbers(k)
redNumbers(j) = rand.Next(1, 34)
End While
Next
Next
' 对红色球号码进行排序
Array.Sort(redNumbers)
' 生成1个蓝色球号码
blueNumber = rand.Next(1, 17)
' 输出结果
Console.Write("第" & i & "组号码：")
For j As Integer = 0 To 5
Console.Write(redNumbers(j).ToString("00") & " ")
Next
Console.WriteLine("[" & blueNumber.ToString("00") & "]")
Next
Console.ReadLine()
End Sub
End Module
```
### 代码说明：
1. **红色球号码生成**：
- 使用`rand.Next(1, 34)`生成1到33之间的随机数。
- 通过嵌套循环确保生成的红色球号码不重复。
- 使用`Array.Sort`对红色球号码进行排序。
2. **蓝色球号码生成**：
- 使用`rand.Next(1, 17)`生成1到16之间的随机数。
3. **输出**：
- 每组号码包括6个红色球号码和1个蓝色球号码，格式为`01 02 03 04 05 06 [07]`。
### 运行结果示例：
```
随机生成的双色球号码：
第1组号码：03 07 12 18 22 29 [05]
第2组号码：01 09 14 20 25 31 [12]
第3组号码：04 08 15 19 23 30 [09]
第4组号码：02 10 16 21 26 32 [14]
第5组号码：05 11 17 24 27 33 [03]
```
### 注意事项：
- 该程序生成的号码是随机的，每次运行结果都会不同。
- 如果需要生成更多组号码，可以调整`For i As Integer = 1 To 5`中的上限值。