作业帮 > 综合 > 作业

vb中,如何将数值转换为相应的中文,如1转换为“一”?

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/19 07:51:54
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