vb中如何将阿拉伯数字转换为中文数字?像这道题

如题所述

说一下思路吧。具体函数需要你自己写。首先说一下算法,一个整数 除10的余数是个位。这样,就可以用一个循环,循环条件是输入变量整数大于零。循环第一步就是变量整数除10取余数(有现成函数的),第二步变量整数=变量整数除10,第三步记录。
这样我们就得到这个数各个位的数值,然后通过判断组合成为一个中文字符串
温馨提示:内容为网友见解,仅供参考
无其他回答

vb编程 阿拉伯数字转换成大写汉字 2位
x = Val(Text1.Text) 'x等于文本框中的数字 Text2.Text = b(x) '文本框2显示该数字的大写汉字 ElseIf Len(Text1.Text) = 2 Then '当文本框1中有2位数字时 x = Left(Text1.Text, 1) 'x等于第一位 y = Right(Text1.Text, 1) 'y等于第二位 If x = 1 And y...

请问将金额阿拉伯数字转换为大写汉字vb代码咋写啊例如:1234.40 转化...
如果是在WORD中选中要转换的阿拉伯数字点插入——数字---选择数字类型就行了。

VB语言中如何将阿拉伯数字转换成大写人民币金额
Next i Text1.Text = mystr1 & "元" & mystr2 '显示大写 End Sub

VB中星期怎么从阿拉伯语改为中文
1 = 星期日 2 = 星期一 3 = 星期二 4 = 星期三 5 = 星期四 6 = 星期五 7 = 星期六 WeekdayName 将WeekDay传回值改成文字显示 WeekdayName(Weekday(Date$))

用VB怎样把输入的阿拉伯数字变为*
将test1的passwordchar改成 *,test2的passwordchar不变。然后 在test1中输入数字,显示的 然后 将test1文本框赋值到test2文本框中 test2.test=test1.test 文本框显示什么字符大部分由passwordchar这个属性决定的。

怎样用vb识别图片中的阿拉伯数字?
1、可以用脚本,你提供的图片位置上的数字问题。如果这个数字是类似验证码那一类的异性字符,那这脚本的难度就有点大。如果只是单纯的普通文字,那这脚本并不复杂。如果是桌面分辨率1024,768就如下,自己可以根据分辨率改。2、:做字库1-9;2:固定X坐标上限和下限找字,找到了就点击,并保存Y坐标+...

vb中如何实现中文数字转换成阿拉伯数字
count 可选的。子字符串进行替换的次数。如果忽略,缺省值是 -1,它表明进行所有可能的替换。compare 可选的。数字值,表示判别子字符串时所用的比较方式。关于其值,请参阅“设置值”部分。设置值compare参数的设置值如下:常数 值 描述 vbUseCompareOption -1 使用Option Compare语句的设置值来执行...

怎么用VBS写一个判断大小的程序?(谢谢您的回答)
这个例子把1,2,3这三个阿拉伯数字转化成中国大写数字, 这个程序写成if...elseif 的形式如下 dim a a=inputbox("请输入1--3的值") a=int(a) if a=1 then msgbox("壹") elseif a=2 then msgbox("贰") elseif a=3 then msgbox("叁") else msgbox("输入错误") end if 怎么样, 麻烦吧, ...

小写金额如何转大写?
G16)*10),"[DBNum2]G\/通用格式")&"角整",TEXT((INT(G16*10)-INT(G16)*10),"[DBNum2]G\/通用格式")&"角"&TEXT(INT(G16*100)-INT(G16*10)*10,"[DBNum2]G\/通用格式")&"分"))你把这个公式复制到EXCEL表格中,然后在单元格G16中输入你要的数字(阿拉伯数字),不需要vba的 ...

在excel中如何讲阿拉伯数字格式转化为大写货币格式,例如表格中为2.3元...
打开VB编辑器,新建一模块,输入以下代码:Public Function RMBDX(M)RMBDX = Replace(Application.Text(Round(M + 0.00000001, 2), "[DBnum2]"), ".", "元")RMBDX = IIf(Left(Right(RMBDX, 3), 1) = "元", Left(RMBDX, Len(RMBDX) - 1) & "角" & Right(RMBDX, 1) & "...

相似回答