String 创建指定数量的字符串

我想在VB.NET控制台应用程序中创建指定数量的字符串。我尝试了此代码，但它引发了一个异常：

NullReferenceException:对象引用未设置为对象的实例

代码如下：

Module RandStrConsole

Dim r As New Random
Dim s As String
Dim result As System.Text.StringBuilder
Dim sb As System.Text.StringBuilder
Dim MaxChar As Integer


Sub Main()

    Console.Write("Enter String: ") : s = Console.ReadLine
    Console.Write("Maxchar: ") : MaxChar = Console.ReadLine

    For i As Integer = 1 To MaxChar

        Dim idx As Integer = r.Next(0, s.Count - 1)
        result = sb.Append(s.Substring(idx, 1)) 'NullReferenceException: Object Reference not set into an instance of an Object.
        result.ToString()

    Next

    Console.WriteLine(result)
    Console.ReadKey()


End Sub

End Module

---

注释部分指出异常发生的位置。

您忘记初始化

StringBuilders

。你必须用这个

---

如果我的答案解决了您的问题，请记住按左边的勾号/复选标记将其标记为已接受。-更多信息可以在这里找到：很高兴我能帮上忙！祝你的项目好运！谢谢@VISUALVENCENT，我希望你能联系到更多的人来帮助我！你的问题解释得很详细

Dim result As New System.Text.StringBuilder
Dim sb As New System.Text.StringBuilder