Question

我在为学校编写程序时遇到了问题，该程序将abc转换为bcd，a变为b和b变为c，你可以看到其余部分。

For i = 0 To length - 1
    If (Asc(justatext.Substring(i, 1)) >= 65 And Asc(justatext.Substring(i, 1)) <= 90) Then
        Asc(justatext.Substring(i, 1) = (Asc(justatext.Substring(i, 1) + 1)))
        answer &= justatext.Substring(i, 1)
    End If
Next

这是一个函数，我返回值answer，但我总是得到一个invalid cast exception。有没有办法可以使用ansi代码执行此操作？

Answer 1

你的问题可以在方括号中找到，你有很多问题，我认为你把它们弄糊涂了。

我绊倒了你的代码并删除了不需要的括号：

    For i = 0 To justatext.Length - 1
        If Asc(justatext.Substring(i, 1)) >= 65 And Asc(justatext.Substring(i, 1)) <= 90 Then
            answer &= Chr(Asc(justatext.Substring(i, 1)) + 1)
        End If
    Next

注意：此代码仅适用于大写字母..

在vb.net中使用ansi代码

1 个答案: