求助纠错小程序，求各位大侠们的帮助 - 编程论坛

#2

winorange2008-05-05 20:45

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

#3

winorange2008-05-05 20:48

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

#4

winorange2008-05-05 21:02

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

#5

fairy42008-05-06 13:27

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
你看看這個吧

#6

fairy42008-05-06 13:29

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

#7

winorange2008-05-06 14:44

谢谢兄弟。