为什么这个代码数字可以反向输出，字母不行，求大神。

Private Sub Command1_Click() Dim a As String Dim s As String Dim n As Integer a = Val(Text1.Text) n = Len(a) For i = 1 To n s = s + Mid(a, n - i + 1, 1) Next i Label2.Caption = s End Sub 输入数字的话就会显示 0

问题在这句：a = Val(Text1.Text)
Val函数是将字符类的数字转换成数值，所以所有字母开头的字符转换结果都为0，删除这句即可。

codeblocks 默认是用的g++编译器。应该是默认的编码问题。 原因是code blocks默认是utf-8(无bom)字符编码。而gcc是按照ansi字符编码来编译的。所以会出现中文乱码。解决方法是把code blocks设置成ansi字符编码。 操作是 新建--在界面的右半边把字符编码选择ansi保存