Arrays 向随机块添加颜色

我目前正在试验控制台中的一行显示一组10个随机生成的块，每个块分配一个单独的颜色。以下是我到目前为止的情况：

Module Module1

    Sub Main()
        Dim rdm As New Random()
        Dim index As Integer
        Dim block(3) As String
        block(0) = "#"
        block(1) = "@"
        block(2) = "."
        block(3) = "~"
        For index = 1 To 10
            Console.Write(block(rdm.Next(1, 4)))
        Next
        Console.ReadLine()
    End Sub

End Module

我想为每个字符指定一种颜色，例如显示时“#”将为绿色，“~”将为蓝色。

---

谢谢您的帮助。

不要将

块

数组声明为

字符串

，而是将其声明为您自己的自定义类型，该类型具有文本的

字符

或

字符串

属性和颜色的

控制台颜色

属性。您使用随机数作为数组的索引，获取颜色值并将其分配给

控制台

类的

ForegroundColor

属性，然后写出文本