用VB写一段程序

以下是一个用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`中的上限值。