前一段时间完成了自己的机房收费系统，之后就给自己的电脑重装了系统，就在自己准备将自己的部分感觉有用的代码拿来和大家分享时出现了问题：从VB中粘贴过来的代码放在CSDN博客中就变成了乱码，不论是直接粘贴过来，还是通过代码书写区整理过来，一下就是具体情况：

'----------------------------------²Ù×÷·ûµÄ¶ÔÓ¦-------------------------------------------------
        
    For Index = 0 To 1
        Select Case Combo3(Index).Text
            Case "Óë"
            relationexchange(Index) = "and"
            Case "»ò"
            relationexchange(Index) = "or"
        End Select
    Next Index
    
    txtsql = "select*from student_info where "
    'Set mrc = Executesql(txtsql,msgtext)
    
    
   If testtxt(Combo1(0).Text) = True Then                      '×Ö¶ÎÃûÊÇ·ñΪ¿Õ
        If testtxt(Combo2(0).Text) = True Then                 '²Ù×÷·ûÊÇ·ñΪ¿Õ
            If testtxt(Text1(0).Text) = True Then              'ÄÚÈÝÊÇ·ñΪ¿Õ
                dd(0) = True                                      'µÚÒ»ÌõÌõ¼þ±»±ê¼Ç
            Else
                MsgBox "µÚÒ»ÐвéѯÄÚÈÝΪ¿Õ£¬ÇëÊäÈë²éѯÄÚÈÝ¡£",vbOKOnly + vbExclamation,"¾¯¸æ"
                Exit Sub
            End If
        Else
            MsgBox "µÚÒ»ÐвÙ×÷·ûΪ¿Õ£¬ÇëÑ¡Ôñ²Ù×÷·û¡£","¾¯¸æ"
            Exit Sub
        End If
    End If

然而将别人的代码粘贴过来却不会有此问题，起初自己以为是有可能是自己的博客设置的问题，费了好大的力气去找自己博客设置方面的问题，可是，结果是无功而返；接下来自己就从自己VB开发环境方面找问题，相同的思路更改了自己VB开发环境的有关字体的一些设置，任然没有结果；最后无奈之下自己准备将所有的汉子重新写一遍，就在自己写了没有多少时，抱着试试看的态度将代码以相同的方式粘贴过来，奇迹发生了，代码部分显示的不再是乱码，而是完整的文字，以下是具体效果图：

'----------------------------------操作符的对应-------------------------------------------------
        
    For Index = 0 To 1
        Select Case Combo3(Index).Text
            Case "与"
            relationexchange(Index) = "and"
            Case "或"
            relationexchange(Index) = "or"
        End Select
    Next Index
    
    txtsql = "select*from student_info where "
    'Set mrc = Executesql(txtsql,msgtext)
    
    
   If testtxt(Combo1(0).Text) = True Then                      '字段名是否为空
        If testtxt(Combo2(0).Text) = True Then                 '操作符是否为空
            If testtxt(Text1(0).Text) = True Then              '内容是否为空
                dd(0) = True                                      '第一条条件被标记
            Else
                MsgBox "第一行查询内容为空，请输入查询内容。","警告"
                Exit Sub
            End If
        Else
            MsgBox "第一行操作符为空，请选择操作符。","警告"
            Exit Sub
        End If
    End If

总结起来，出现乱码的原因有二：一、由于自己重装系统重新安装了VB、输入法，所以可能是由于VB开发环境丧失了记忆功能（这里只是自己的一种理解，具体原理还不是很清楚），而使原来某种输入法输入的文本无法显示；二、一旦系统中没有输入法也会出现乱码的现象。

所以，如果一旦遇到类似的情况，具体的解决步骤为：

1.如果没有安装输入法，首先要安装上自己比较喜欢的输入法；

2.接下来打开自己的VB代码，将其中的某些汉字重新输入（这里自己的理解是通过自己的再次输入使VB开发环境恢复“记忆”功能，所以重新输入的汉字也不必很多），然后就可以完好地将乱码现象解决了。

呵呵，到这里，你明白了吗！？