vb中,如何将数值转换为相应的中文,如1转换为“一”?
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/22 21:25:11
vb中,如何将数值转换为相应的中文,如1转换为“一”?
vb中,如何将数值转换为相应的中文,如1转换为“一”?
vb中,如何将数值转换为相应的中文,如1转换为“一”?
直接调用下面函数即可.
Private Function NumberToChinese(Byval Int_A As Integer) As String
Select Case Int_A
Case Int_A=0
NumberToChinese="零"
Case Int_A=1
NumberToChinese="一"
Case Int_A=2
NumberToChinese="二"
Case Int_A=3
NumberToChinese="三"
Case Int_A=4
NumberToChinese="四"
Case Int_A=5
NumberToChinese="五"
Case Int_A=6
NumberToChinese="六"
Case Int_A=7
NumberToChinese="七"
Case Int_A=8
NumberToChinese="八"
Case Int_A=9
NumberToChinese="九"
End Select
End Function