VB中Select Case语句失效求助：文本转图像编码程序异常终止

你的程序之所以卡在循环阶段、无法执行到MsgBox("Done")，核心是几个语法和逻辑错误导致的，咱们一步步拆解修复：

1. 数组长度判断的致命错误 #

你用Len(characters)获取字符数组的元素个数，但Len()在VB中对数组返回的是数组占用的总字节数，而非元素数量！正确的做法是用characters.Length来获取字符数组的长度。

另外，数组索引从0开始，当textcord等于characters.Length时，就已经超出了数组的有效索引范围（最后一个元素的索引是characters.Length - 1），所以判断条件要改成：

If textcord >= characters.Length Then

2. Select Case的语法错误 #

VB中Case匹配多个值时，必须用逗号分隔，不能用Or运算符。"a" Or "A"会先执行逻辑运算，结果并不是你期望的字符，导致这个Case永远匹配不到任何内容。正确写法是：

Select Case characters(textcord)
    Case "a"c, "A"c ' 用c后缀明确表示Char类型，和数组元素类型匹配
        bitmap.SetPixel(x, y, Color.FromArgb(255, 255, 128, 128))
    Case Else ' 建议加上，处理非a/A的字符，避免遗漏
        bitmap.SetPixel(x, y, Color.Black)
End Select

3. 未处理其他字符的隐患 #

原代码中如果输入的字符不是a或A，没有对应的处理逻辑，会导致这些像素保留原图像颜色，不符合编码需求。加上Case Else可以统一处理所有非目标字符的情况。

修复后的完整代码 #

Dim bitmap As New Bitmap("C:\abcimage\templ.jpg")
Dim input = InputBox("What do you want to encode into image?")
Dim characters As Char() = input.ToCharArray() ' 直接声明为Char数组更清晰
Dim Width As Int32 = bitmap.Width
Dim Height As Int32 = bitmap.Height
Dim textcord As Integer = 0

For y As Int32 = 0 To Height - 1
    For x As Int32 = 0 To Width - 1
        If textcord >= characters.Length Then
            bitmap.SetPixel(x, y, Color.Black)
        Else
            Select Case characters(textcord)
                Case "a"c, "A"c
                    bitmap.SetPixel(x, y, Color.FromArgb(255, 255, 128, 128))
                Case Else
                    ' 可根据需求修改其他字符对应的颜色
                    bitmap.SetPixel(x, y, Color.Black)
            End Select
        End If
        textcord += 1
    Next
Next

MsgBox("Done")
bitmap.Save("C:\abcimage\outputs\asdf.jpg")
bitmap.Dispose() ' 释放Bitmap资源，避免内存泄漏

额外调试提示 #

建议加个错误捕获块，方便看到具体异常信息：

Try
    ' 把你的核心代码放在这里
Catch ex As Exception
    MsgBox("出错了：" & ex.Message)
End Try

内容的提问来源于stack exchange，提问作者markop