Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a() As String
Dim i As Integer
Dim b As String
b = write.Text
ReDim a(i)
For i = 0 To write.Text.Length
a(i) = b.Substring(i, 1)
If a(i) = "1" Then
a(i) = "壹"
ElseIf a(i) = 2 Then
a(i) = "贰"
ElseIf a(i) = 3 Then
a(i) = "叁"
ElseIf a(i) = 4 Then
a(i) = "肆"
ElseIf a(i) = 4 Then
a(i) = "伍"
ElseIf a(i) = 6 Then
a(i) = "陆"
ElseIf a(i) = 7 Then
a(i) = "柒"
ElseIf a(i) = 8 Then
a(i) = "捌"
ElseIf a(i) = 9 Then
a(i) = "玖"
ElseIf a(i) = 0 Then
a(i) = "零"
End If
Next i
change.Text = b
End Sub
709/11/1505109872_886850.png)