Question

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

我想为每个字符分配一个颜色，例如显示“＃”时为绿色，“〜”为蓝色。谢谢你的帮助。

Answer 1

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

为随机块添加颜色

1 个答案: