VB中的问题请帮忙

来源：百度知道 编辑：UC知道 时间：2024/06/29 01:52:39
情况是这样的.我想建6个Text窗口,当我在第一个Text1窗口输入"12345"一串数字的时候,相对应的Text2窗口会出现"壹",Text3窗口出现"贰",Text4窗口出现"叁",Text5窗口出现"肆",Text6窗口出现"伍".请高手请教,我是纯菜鸟,请您辛苦,麻烦您代码写全了我粘过来就可以用,先谢谢!
简单补充下,Text1 输入的数字不是固定的有可能是86574.00但我只要前面的数,小数点后面的不要.

窗体上一个文本框控件数组 索引0-5
一个按钮控件

Dim arrBig5
Function check(ByVal txt As String) As Boolean
If IsNumeric(txt) Then
If CLng(txt) > 9999 And CLng(txt) < 100000 Then
check = True
Else
check = False
End If
Else
check = False
End If
End Function

Function big5(ByVal id As Integer) As String
If id >= 0 And id < 10 Then
big5 = arrBig5(id)
Else
big5 = ""
End If
End Function

Private Sub Command1_Click()
If check(Text1(0).Text) Then
For i = 1 To 5
'vStr = vStr & big5(Mid$(Text1(0).Text, i, 1))
Text1(i).Text = big5(Mid$(Text1(0).Text, i, 1))
Next
Else
MsgBox "请重新输入数值", , "信息"
Text1(0).Text = ""
End If
End Sub
<