求把整型变量转化成字符串的代码?在线等！

Question

给你一个整型变量，要求把它编程和它一致的中文大写字符串？？
如23456转化成"贰叁肆伍陆"

Answer 1

写代码，Select Case就行，这还发帖子？！

Answer 2

Private Sub Command1_Click()
    Dim strTemp As String * 1, i%, x As String, strResult As String, strCmp As String
    x = "1234589"
    strCmp = "贰叁肆伍陆柒八九"
    For i = 1 To Len(x)
        strTemp = Mid(x, i, 1)
        strResult = strResult & Mid(strCmp, strTemp, 1)
    Next
    Debug.Print strResult
End Sub

Answer 3

Private Function cNumToStr(ByVal pStr As Long) As String
    Dim strTemp As String * 1, i%, strResult As String, strCmp As String    strCmp = "壹贰叁肆伍陆柒八九"
    For i = 1 To Len(CStr(pStr))
        strTemp = Mid(CStr(pStr), i, 1)
        strResult = strResult & Mid(strCmp, strTemp, 1)
    Next
    Debug.Print strResult
End Function
'调用
Private Sub Command1_Click()
    Dim strRet As String
    strRet = cNumToStr(23456)
    Debug.Print strRet
End Sub

Answer 4

Private Function test(ByVal n As Long) As String
    Dim s As String
    s = "零壹贰叁肆伍陆柒八九"
    Dim tmp As String, t As String
    tmp = CStr(n)
    Dim i As Long
    For i = 0 To 9
       tmp = Replace(tmp, CStr(i), Mid(s, i + 1, 1))
    Next
    test = tmp
End FunctionPrivate Sub Command1_Click()
MsgBox test(34901)
End Sub

Answer 5

设置智能ABC为默认输入法:Private Sub Command1_Click()
shownum "01234567890"
End SubSub shownum(ByVal num As String)
Text1.Text = ""
Text1.IMEMode = 1
Text1.SetFocus
SendKeys "I" & num
SendKeys " "
End Sub

Answer 6

or:Private Sub Command1_Click()
shownum "0123456789"
End SubSub shownum(ByVal num As String)
num = "I" & num & " "
Text1.Text = ""
Text1.IMEMode = 1
Text1.SetFocus
SendKeys num
End Sub