本来刚学没多久，想做个从数字转化为中文大写的小程序，可是当我输入“1”时，结果为 “壹拾壹” “2”时，结果为“贰拾贰”“123”时结果为 “壹仟壹佰贰拾”叁 。
Dim f, l, i As Integer
        Dim y As String
        Dim b As String
        Dim t As String
        f = Val(TextBox3.Text) ’先将输入框转成数字，以便将字符去除
        b = Str(f)  ’再将数字转为文
        l = Len(b)  ’求输入文本的长度
        For i = 1 To l ’对输入文本的最后一位开始，一位一位的转为中文大写的中文字符
            Select Case Mid$(b, l - i + 1, 1)
                Case 0
                    y = "零"
                Case 1
                    y = "壹"
                Case 2
                    y = "贰"
                Case 3
                    y = "叁"
                Case 4
                    y = "肆"
                Case 5
                    y = "伍"
                Case 6
                    y = "陆"
                Case 7
                    y = "柒"
                Case 8
                    y = "捌"
                Case 9
                    y = "玖"
                Case 10
                    y = "拾"
            End Select
            t = t & y ’将转换后的中文字符以原字符的最后一位为开始，一个一个相接，若输入时为“123”，则t为“叁贰壹”

        Next i

        Select Case Len(t) ‘对不同的输入长度作不同的输出判断
            Case 1
                TextBox4.Text = t
            Case 2
                TextBox4.Text = Mid$(t, 2, 1) & "拾" & Mid$(t, 1, 1)
            Case 3
                TextBox4.Text = Mid$(t, 3, 1) & "佰" & Mid$(t, 2, 1) & "拾" & Mid$(t, 1, 1)
            Case 4
                TextBox4.Text = Mid$(t, 4, 1) & "仟" & Mid$(t, 3, 1) & "佰" & Mid$(t, 2, 1) & "拾" & Mid$(t, 1, 1)
            Case 5
                TextBox4.Text = Mid$(t, 5, 1) & "万" & Mid$(t, 4, 1) & "仟" & Mid$(t, 3, 1) & "佰" & Mid$(t, 2, 1) & "拾" & Mid$(t, 1, 1)
            Case 6
                TextBox4.Text = Mid$(t, 6, 1) & "拾" & Mid$(t, 5, 1) & "万" & Mid$(t, 4, 1) & "仟" & Mid$(t, 3, 1) & "佰" & Mid$(t, 2, 1) & "拾" & Mid$(t, 1, 1)
            Case 7
                TextBox4.Text = Mid$(t, 7, 1) & "佰" & Mid$(t, 6, 1) & "拾" & Mid$(t, 5, 1) & "万" & Mid$(t, 4, 1) & "仟" & Mid$(t, 3, 1) & "佰" & Mid$(t, 2, 1) & "拾" & Mid$(t, 1, 1)
            Case 8
                TextBox4.Text = Mid$(t, 8, 1) & "仟" & Mid$(t, 7, 1) & "佰" & Mid$(t, 6, 1) & "拾" & Mid$(t, 5, 1) & "万" & Mid$(t, 4, 1) & "仟" & Mid$(t, 3, 1) & "佰" & Mid$(t, 2, 1) & "拾" & Mid$(t, 1, 1)
            Case 9
                TextBox4.Text = Mid$(t, 9, 1) & "亿" & Mid$(t, 8, 1) & "仟" & Mid$(t, 7, 1) & "佰" & Mid$(t, 6, 1) & "拾" & Mid$(t, 5, 1) & "万" & Mid$(t, 4, 1) & "仟" & Mid$(t, 3, 1) & "佰" & Mid$(t, 2, 1) & "拾" & Mid$(t, 1, 1)
        End Select
    End Sub

根据结果，我将后面的一个select的 每一个case结果的第一个mid及其参数去除后，又能显示正确的结果了，但我还是不知道是怎么回事。

是不是起始位置的后面一位开始取，而不是从起始位置开始取。那样的话，就说的过去了。

最后一位为时，如何让最后一位不显示出零，不然不合常规，比如“10”的时候，他会显示“壹拾零”

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim strTemp01, intStr, NumStr, TrunStr As String
        Dim strLen As Integer
        Dim ZeroFlag As Boolean = False
        dim ZeroTooFlag as Boolean=False
        strTemp01 = Me.TextBox3.Text.Trim()
        strLen = strTemp01.Length
        For intX As Integer = 1 To strLen
            Select Case Mid(strTemp01, intX, 1)
                Case 0
                    intStr = "零"
                Case 1
                    intStr = "壹"
                Case 2
                    intStr = "贰"
                Case 3
                    intStr = "叁"
                Case 4
                    intStr = "肆"
                Case 5
                    intStr = "伍"
                Case 6
                    intStr = "陆"
                Case 7
                    intStr = "柒"
                Case 8
                    intStr = "捌"
                Case 9
                    intStr = "玖"
                    'Case 10
                    '    y = "拾"
            End Select
            NumStr = NumStr & intStr
        Next
        For intI As Integer = 1 To NumStr.Length
            If Mid(NumStr, intI, 1) <> "零" Then
                ZeroFlag = False
                TrunStr = TrunStr & Mid(NumStr, intI, 1) & FindDanwei(NumStr.Length - intI)
            Else
                If ZeroFlag = False Then

                    If NumStr.Length - intI = 4 Or NumStr.Length - intI = 8 Then
                        If intI <> NumStr.Length Then
                            TrunStr = TrunStr & FindDanwei(NumStr.Length - intI)
                        End If
                    Else
                        If intI <> NumStr.Length Then
                            TrunStr = TrunStr & Mid(NumStr, intI, 1)
                        End If
                    End If
                Else
                    If NumStr.Length - intI = 4 Or NumStr.Length - intI = 8 Then
                        If intI <> NumStr.Length Then
                            TrunStr = TrunStr & FindDanwei(NumStr.Length - intI)
                        End If
                    Else
                        If intI <> NumStr.Length Then
                            TrunStr = TrunStr
                        End If
                    End If
                End If
                ZeroFlag = True

            End If
        Next
        If TrunStr.Substring(TrunStr.Length - 1, 1) = "零" Then
            TrunStr = TrunStr.Substring(0, TrunStr.Length - 1)
        End If
        Me.TextBox4.Text = TrunStr
    End Sub
    Private Function FindDanwei(ByVal intX As Int32) As String
        Select Case intX
            Case 1
                Return "拾"
            Case 2
                Return "佰"
            Case 3
                Return "仟"
            Case 4
                Return "万"
            Case 5
                Return "拾"
            Case 6
                Return "佰"
            Case 7
                Return "仟"
            Case 8
                Return "亿"
            Case 9
                Return "拾"
            Case 10
                Return "佰"
            Case 11
                Return "仟"

        End Select
    End Function
你看看這個吧

當然，這個程序也有一些小問題，比如1000001這樣的數字，處理出來的結果就不是我想要的看到的，
我也沒時間去改了，呵呵

谢谢兄弟。