vb中,如何将数值转换为相应的中文,如1转换为“一”?
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/19 07:51:54
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
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
VB中如何将英文字母转换成数字,比如将A转换成1,B转换为2.
VB如何将 分秒 转换为 秒
excel表格中 将数值1.5 转换为1小时30分钟的方法
Excel 中,如何将日期转换为中文或英文的星期几?
matlab中如何把符号多项式转换为数值多项式
MATLAB中如何将向量中的字母转换为自定义的数字?如str='A' 'B' 'A' 'C' 'D'z转换为'1' '2
在EXCEL表格中如何将以秒为单位的数字转化为时间,如将3600秒转换为1:00:00形式
如何将数字转换为中文大写,如123.12 转为壹佰贰拾叁元壹角贰分整,
请将甲骨文转换为中文,
如何将excel表格中数字转换为年龄
excel 中 如何将度分秒转换为度
如何把篆书转换为中文汉字