VB问题.......

来源：百度知道 编辑：UC知道 时间：2024/09/18 03:57:51
如何在TEXT1中输入任意数字012345............,
在TEXT2中自动显示为由零一二三四五七八九.....组合的数字

如TEXT1中输入"5678"
则在TEXT2中自动显示..........自动跟随TEXT1改变

Private Sub Text1_Change()
Dim mNum As String
mNum = Right(Text1.Text, 1)
Select Case mNum
Case "0": Text2.Text = Text2.Text & "零"
Case "1": Text2.Text = Text2.Text & "一"
Case "2": Text2.Text = Text2.Text & "二"
Case "3": Text2.Text = Text2.Text & "三"
Case "4": Text2.Text = Text2.Text & "四"
Case "5": Text2.Text = Text2.Text & "五"
Case "6": Text2.Text = Text2.Text & "六"
Case "7": Text2.Text = Text2.Text & "七"
Case "8": Text2.Text = Text2.Text & "八"
Case "9": Text2.Text = Text2.Text & "九"
End Select
End Sub

Private Sub Text1_Change()
Dim mNum As String
mNum = Right(Text1.Text, 1