VB小程序请帮忙.送您10Q币做回报.

建个Text1窗口输入数字1234567表示“壹万贰仟叁佰伍拾陆元柒角”建Text2－6窗口分别代表，万,千,佰,拾,元,角.在对应的Text2(及万区域)显示“壹”Text3(及仟区域)显示“贰”依次类推。补充：Text1窗口输入数字最多5位数但没有下限，如：345（及叁佰肆拾五元），其他没有的区域用“X”表示，可以办到吗？
麻烦您写的详细点,我复制下来就可以用.

只需要几行代码就行了:

Const c$ = "零壹贰叁肆伍陆柒捌玖"

Private Sub Form_Load()
Text1.MaxLength = 5
End Sub

Private Sub Text1_Change()
Dim a$
a = Space(5 - Len(Text1)) & Text1
Text2 = IIf(Mid(a, 1, 1) = " ", "X", Mid(c, Val(Mid(a, 1, 1)) + 1, 1))
Text3 = IIf(Mid(a, 2, 1) = " ", "X", Mid(c, Val(Mid(a, 2, 1)) + 1, 1))
Text4 = IIf(Mid(a, 3, 1) = " ", "X", Mid(c, Val(Mid(a, 3, 1)) + 1, 1))
Text5 = IIf(Mid(a, 4, 1) = " ", "X", Mid(c, Val(Mid(a, 4, 1)) + 1, 1))
Text6 = IIf(Mid(a, 5, 1) = " ", "X", Mid(c, Val(Mid(a, 5, 1)) + 1, 1))
End Sub

这个也太简单了点儿，我给你作

Private Sub Form_Load()
Text1.MaxLength = 5
Text2.Locked = True
Text3.Locked = True
Text4.Locked = True
Text5.Locked = True
Text6.Locked = True
End Sub

Private Sub Text1_Change()