Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String
str = Me.TextBox1.Text.Trim
Dim isfs As Boolean
If Left(str, 1) = "-" Then
isfs = True
str = str.Remove(0, 1)
Else
isfs = False
End If
Dim strpoint As String
Dim point() As String
Dim j As Int16
Dim jj() As String
Dim jjj As String
jjj = ""
If str.IndexOf(".") <> -1 Then
point = Split(str, ".", -1, CompareMethod.Text)
str = point(0)
strpoint = point(1)
ReDim jj(strpoint.Length - 1)
For j = 0 To strpoint.Length - 1
jj(j) = Left(strpoint, 1)
strpoint = Right(strpoint, strpoint.Length - 1)
jjj = jjj + convert(jj(j))
Next
End If
Dim strcode As String
strcode = ""
While strcode.Length <= str.Length
strcode = strcode & "2345" & "2346"
End While
strcode = "1" & strcode
strcode = Left(strcode, str.Length)
Dim i As Int16
Dim a() As String
Dim strcode1 As String
Dim countstr As Int16
Dim strcode2 As String
countstr = strcode.Length
ReDim a(strcode.Length - 1)
For i = 0 To countstr - 1
a(i) = Right(strcode, 1)
strcode = Left(strcode, strcode.Length - 1)
strcode1 = strcode1 & a(i)
strcode2 = strcode2 & "," & Mid(str, i + 1, 1) & Mid(strcode1, i + 1, 1)
Next
strcode2 = Right(strcode2, strcode2.Length - 1)
Dim newstr() As String
newstr = Split(strcode2, ",", -1, CompareMethod.Text)
Dim ii As Int16
Dim laststr As String
Dim strcode3 As String
Dim leftstr As String
Dim rightstr As String
For ii = 0 To newstr.Length - 1
strcode3 = newstr(ii)
leftstr = Left(strcode3, 1)
rightstr = Right(strcode3, 1)
rightstr = Replace(rightstr, rightstr, convert2(rightstr))
leftstr = Replace(leftstr, leftstr, convert(leftstr))
If leftstr = "零" And (rightstr = "拾" Or rightstr = "佰" Or rightstr = "仟") Then
rightstr = ""
End If
If leftstr = "零" And (rightstr = "万" Or rightstr = "亿") Then
leftstr = ""
Dim str As String
str = Me.TextBox1.Text.Trim
Dim isfs As Boolean
If Left(str, 1) = "-" Then
isfs = True
str = str.Remove(0, 1)
Else
isfs = False
End If
Dim strpoint As String
Dim point() As String
Dim j As Int16
Dim jj() As String
Dim jjj As String
jjj = ""
If str.IndexOf(".") <> -1 Then
point = Split(str, ".", -1, CompareMethod.Text)
str = point(0)
strpoint = point(1)
ReDim jj(strpoint.Length - 1)
For j = 0 To strpoint.Length - 1
jj(j) = Left(strpoint, 1)
strpoint = Right(strpoint, strpoint.Length - 1)
jjj = jjj + convert(jj(j))
Next
End If
Dim strcode As String
strcode = ""
While strcode.Length <= str.Length
strcode = strcode & "2345" & "2346"
End While
strcode = "1" & strcode
strcode = Left(strcode, str.Length)
Dim i As Int16
Dim a() As String
Dim strcode1 As String
Dim countstr As Int16
Dim strcode2 As String
countstr = strcode.Length
ReDim a(strcode.Length - 1)
For i = 0 To countstr - 1
a(i) = Right(strcode, 1)
strcode = Left(strcode, strcode.Length - 1)
strcode1 = strcode1 & a(i)
strcode2 = strcode2 & "," & Mid(str, i + 1, 1) & Mid(strcode1, i + 1, 1)
Next
strcode2 = Right(strcode2, strcode2.Length - 1)
Dim newstr() As String
newstr = Split(strcode2, ",", -1, CompareMethod.Text)
Dim ii As Int16
Dim laststr As String
Dim strcode3 As String
Dim leftstr As String
Dim rightstr As String
For ii = 0 To newstr.Length - 1
strcode3 = newstr(ii)
leftstr = Left(strcode3, 1)
rightstr = Right(strcode3, 1)
rightstr = Replace(rightstr, rightstr, convert2(rightstr))
leftstr = Replace(leftstr, leftstr, convert(leftstr))
If leftstr = "零" And (rightstr = "拾" Or rightstr = "佰" Or rightstr = "仟") Then
rightstr = ""
End If
If leftstr = "零" And (rightstr = "万" Or rightstr = "亿") Then
leftstr = ""
相关文章
 我来说两句 |
对此文章发表了评论 |
评论列表 （最新 评论仅限网友观点！）
推荐文章
