请教:在text控件中输入数字,怎样能用简单的程序把它转换成"一~十"的文字显示在另一控件中,谢谢

Function change(Str As String)
Dim strlen As Integer
Dim i As Integer
Dim outStr As String
Dim inString As String
strlen = Len(Str)
For i = 1 To strlen
inString = Mid(Str, i, 1)
Select Case inString
Case "0"
outStr = "零"
Case "1"
outStr = "一"
Case "2"
outStr = "二"
Case "3"
outStr = "三"
Case "4"
outStr = "四"
Case "5"
outStr = "五"
Case "6"
outStr = "六"
Case "7"
outStr = "七"
Case "8"
outStr = "八"
Case "9"
outStr = "九 "
Case Else
outStr = inString
End Select
change = change + outStr




Next

End Function

如果2个textbox,则。。Private Sub Command1_Click()
Text2.Text = change(Text1.Text)

End Sub

改进一下二楼的:

Function change(Str As String)
Dim strlen As Integer
Dim i As Integer
Dim outStr As String
Dim inString As String
strlen = Len(Str)
For i = 1 To strlen
inString = Mid(Str, i, 1)
If IsNumeric(inString) Then
outStr = Choose(CInt(inString) + 1, "零", "一", "二", "三", "四", "五", "六", "七", "八", "九")
Else
outStr = inString
End If
End Select
change = change + outStr
Next
End Function

但你是要输入一个数字还是几个？如果是几个，上面的代码就管用；否则就用下面的

Function change(Str As String)
Dim outStr As String
If IsNumeric(Str) Then
outStr = Choose(CInt(Str) + 1, "零", "一", "二", "三", "四", "五", "六", "七", "八", "九", "十")
Else
outStr = Str
End If
change = outStr
End Function

[此贴子已经被作者于2006-12-7 18:00:44编辑过]

谢谢改进，学习了

太难了。。。但我要抄下来才行。做个笔记

高手们..我问一下问题...

为什么你们的变量命名好象都很复杂?

变量名..最好是一些见名知义的单词组合..
例如strLen,一看就知道是字符串长度的意思了..那假如你用个a来代码..你写一些比较简短的代码是..是比较方便..但你写得较长是..或许开发周期比较长时..很容易就会忘记它的意思...如果是团队开发..那其他程序员维护..也会增加很多麻烦..所以...长一些没所谓..最好保持在15个字符以内...

Private Sub Command1_Click()
Dim context As String
context = Text1
For i = 1 To Len(context)
Index = Int(Mid(context, i, 1))
Mid(context, i, 1) = Mid("零一二三四五六七八九", Index + 1, 1)
Next
Text1 = context
End Sub

将9楼的改了一下：
Private Sub Command1_Click()
Text1 = StringToNember(Text1)

End Sub

Public Function StringToNember(StrValue As String) As String
Dim Context As String
Dim Index As Integer
Dim StrLen As Integer

Context = StrValue
StrLen = Len(Context)

For i = 1 To StrLen
Index = Int(Val(Mid(Context, i, 1)))
Mid(Context, i, 1) = Mid("零一二三四五六七八九", Index + 1, 1)

Next

StringToNember = Context

End Function

[此贴子已经被作者于2006-12-8 22:53:15编辑过]