为随机块添加颜色

【问题标题】：Adding colour to random blocks为随机块添加颜色
【发布时间】：2014-05-02 21:34:10
【问题描述】：

目前我正在尝试在控制台中显示一组 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

我想为每个字符分配一种颜色，例如“#”在显示时为绿色，“~”为蓝色。感谢您的帮助。

【问题讨论】：

标签： arrays vb.net loops random block

【解决方案1】：

不要将您的blocks 数组声明为String，而是将其声明为您自己的自定义类型，该类型具有Char 或String 属性用于文本和ConsoleColor 属性用于颜色。像往常一样使用随机数作为数组的索引，获取颜色值并将其分配给Console 类的ForegroundColor 属性，然后写出文本。

【讨论】：