Vb.net 如何克服；数组“quot；”边界之外的索引；？

我有以下代码：

Module Module11
    Sub Main()
        Dim mess As String
        Dim out As String
        Dim num, p As UInteger
        Dim q As Integer = -1

        Console.Write("Enter a message: ")
        mess = Console.ReadLine()

        While p < 9
            q += 1
            num = Asc(mess(p + q)) + 5
            out = Chr(num)
            Console.Write(out)
        End While

        Console.ReadKey()
    End Sub
End Module

模块11
副标题（）
像绳子一样的模糊混乱
像线一样变暗
Dim num，p作为UInteger
Dim q为整数=-1
Console.Write（“输入消息：”）
mess=Console.ReadLine（）
p<9
q+=1
num=Asc（混乱（p+q））+5
out=Chr（num）
控制台。写入（输出）
结束时
Console.ReadKey（）
端接头
端模块

但在第5行，它显示的是“索引超出了数组的界限”

我实际上是在尝试创建代码，可以将我们输入的任何字符的每个字符（甚至是空格）都更改为下一个第六个字符（参考ASCII代码）

即使给出了正确的输出（在黑色控制台中），它也会显示错误

---

请帮忙。

我想我有答案（或者至少有答案）。我不熟悉VisualBasic，但我熟悉Python，这似乎非常相似。在做了一些快速的研究之后，我了解到“UInteger”数据类型不能是负数。我建议将while循环改为“whilep>0和p<9”，然后改为代码的其余部分。在我看来，你的答案是否定的。考虑到您的错误消息所说的内容，这是有意义的。然而，我不确定输出结果如何仍然正确，但值得一试。我会试试看，让我知道它是怎么回事

p

永远不会改变，因此您有一个无限循环，其中

q

不断增加，直到

p+q

超出边界。无限循环中的混乱长度已超过。字符串mess的char数组的上限为mess.length-1。