手机评站网今天精心准备的是《英文大小写转换器在线》,下面是详解!
英文的大小写转换
我需要一个软件可以输入数字转换成英文的举例122:ONEHUNDREDANDTWENTYTWO242341:TWOHUNDREDANDFORTYTWOTHOUSANDTHREEHUNDREDANDFORTYONE第一个回答我的那个人这个在什么程序里运行啊...
我需要一个软件可以输入数字转换成英文的
举例 122 : ONE HUNDRED AND TWENTY TWO
242341: TWO HUNDRED AND FORTY TWO THOUSAND THREE HUNDRED AND FORTY ONE
第一个回答我的 那个人 这个在什么程序里运行啊?
我在什么软件里编这个程序啊?
我不懂啊
展开
function zr4(y)
' 准备数据
dim z(10)
z(1)="ONE"
z(2)="TWO"
z(3)="THREE"
z(4)="FOUR"
z(5)="FIVE"
z(6)="SIX"
z(7)="SEVEN"
z(8)="EIGHT"
z(9)="NINE"
zr4=z(MID(y,1,1))
end function
function zr3(y)
' 准备数据
dim z(10)
z(1)="ONE"
z(2)="TWO"
z(3)="THREE"
z(4)="FOUR"
z(5)="FIVE"
z(6)="SIX"
z(7)="SEVEN"
z(8)="EIGHT"
z(9)="NINE"
zr3=z(MID(y,3,1))
end function
function zr2(y)
' 准备数据
dim z(20)
z(10)="TEN"
z(11)="ELEVEN"
z(12)="TWELVE"
z(13)="THIRTEEN"
z(14)="FOURTEEN"
z(15)="FIFTEEN"
z(16)="SIXTEEN"
z(17)="SEVENTEEN"
z(18)="EIGHTEEN"
z(19)="NINETEEN"
zr2=z(MID(y,2,2))
end function
function zr1(y)
' 准备数据
dim z(10)
z(1)="TEN"
z(2)="TWENTY"
z(3)="THIRTY"
z(4)="FORTY"
z(5)="FIFTY"
z(6)="SIXTY"
z(7)="SEVENTY"
z(8)="EIGHTY"
z(9)="NINETY"
zr1=z(MID(y,2,1))
end function
function dw(y)
' 准备数据
dim z(5)
z(0)=""
z(1)="THOUSAND"
z(2)="MILLION"
z(3)="BILLION"
dw=z(y)
end function
function w2(y)
' 用来制作2位数字转英文
if MID(y,2,1)="0" then
' 判断是否小于10
value=zr3(y)
elseif MID(y,2,1)="1" then
' 判断是否在10到20之间
value=zr2(y)
elseif MID(y,3,1)="0" then
' 为去掉尾空格,判断是否为大于20小于100的能被10整除的数
value=zr1(y)
else
value=zr1(y)+" "+zr3(y)
' 加上10位到个位的空格
end if
w2=value
end function
function w3(y)
' 用来制作3位数字转英文
if MID(y,1,1)="0" then
' 判断是否小于100
value=w2(y)
elseif MID(y,2,2)="00" then
' 判断是否能被100整除
value=zr4(y)+" "+"HUNDRED"
else
value=zr4(y)+" "+"HUNDRED"+" "+"AND"+" "+w2(y)
' 不能整除的要后面加"AND"
end if
w3=value
end function
function make(x)
z=instr(1,x,".",1)
' 取小数点位置
if z<>0 then
' 判断有无小数
lstr=mid(x,1,z-1)
' 取小数点左边字串
rstr=mid(x,z+1,2)
' 取小数点右边字串
else
lstr=x
' 如果没有小数
end if
lstrev=StrReverse(lstr)
' 对左边的字串取反字串
dim a(5)
' 定义5个字串变量用来存放解析出的三位一组的字串
select case len(lstrev) mod 3
' 字串长度不能被整除,需补齐
case "1"
lstrev=lstrev+"00"
case "2"
lstrev=lstrev+"0"
end select
lm=""
' 用来存放转换后的整数部分
for i=0 to len(lstrev)/3-1
' 计算有多少个三位
a(i)=StrReverse(mid(lstrev,3*i+1,3))
' 截取第1个三位
if a(i)<>"000" then
' 用来避免这种情况"1000000=ONE MILLION THOUSAND ONLY"
if i<>0 then
lm=w3(a(i))+" "+dw(i)+" "+lm
' 用来加上"THOUSAND OR MILLION OR BILLION"
else
lm=w3(a(i))
' 防止i=0时"lm=w3(a(i))+" "+dw(i)+" "+lm"多加两个尾空格
end if
else
lm=w3(a(i))+lm
end if
NEXT
xs=""
' 用来存放转换后的小数部分
if z<>0 then
xs="AND CENTS"+" "+w2("$"+rstr)+" "
' 小数部分存在时转换小数部分
end if
make=lm+" "+xs+"ONLY"
' 最后结果,不要忘记加上ONLY
end function
电脑英文大小写转换
电脑按什么键显示出打英文!按什么键能转换英文大小写?请一一说明!...
电脑按什么键显示出打英文!按什么键能转换英文大小写?请一一说明!
Word里如何转换英文字母大小写
一个字符串如果只包含字母,可以使用快捷键shift+F3转换大小写。但如果是数字与字母混杂,如何快速转换大小写呢?有没有除VBA以外的方法?(不想老是写VBA代码)数字与字母混杂,如何...
一个字符串如果只包含字母,可以使用快捷键shift + F3转换大小写。
但如果是数字与字母混杂,如何快速转换大小写呢?
有没有除VBA以外的方法?(不想老是写VBA代码)
数字与字母混杂,如何快速转换其中的字母大小写?
展开
工具/材料:以Microsoft Office Word2007为例。
1、首先选中word文档,双击打开。
2、然后在该界面中,选中要转换英文字母大小写的英文字母。
3、之后在该界面中,上方工具栏中“Aa”里,点击“切换大小写”选项。
4、最后在该界面中,选中的英文字母发生英文字母大小写转换。
如何实现在word中对英文字母进行大小写转换
在word中对英文字母进行大小写转换,有三种方法:
方法一、word 2007/word 2010英文大小写转换
1、点击工具栏上的【 开始】;
2、选择【 更改大小写】 (图标为Aa);
3、选中具体操作【 全部大写/全部小写】。
方法二、word 2003英文大小写转换
1、点击工具栏上的【格式】;
2、选择【更改大小写】;
3、选中你需要的操作【 大写 】或【 小写】。
方法三、使用快捷键进行大小写转换
选中要转换的字母,按下Shfit+F3快捷键,可以快速进行大小写转换,如果原来的英文字母是小写的,就会先把句子或单词的第一个字母转换为大写,再按一次快捷键即可把整个句子或单词的字母均转换为大写,再按一次转换为小写,以此类推。
电脑英文字母大小写怎么转换
1、首先将电脑中安装的输入法按住“shift”键切换为英文输入模式。
2、然后即可在英文模式下输入小写的英文字母。
3、之后再按下电脑键盘中的“cap lock”按键,切换为大写字母模式。
4、在输入法中可以看到原本显示的“英”字被切换为“A”。
5、在文字输入中即可输入大写的英文字母了。
手机键盘上英文字母大小写怎么转换
您好!手机要转换大小写,要看您的手机是什么系统,用的是什么输入法了,但一般安卓系统手机转换大小写的方法是点那个向上的箭头,就会转换成大写字母,再点一下,就会转换成小写字母了!
电脑键盘怎么转换英文大小写?
1、在系统中启动一款输入法,在输入法中切换至英文键盘,起始状态以小写状态为例。
2、按键盘上的capslock键也就是大写锁定键即可切换为英文大写状态。
3、英文大写状态时键盘右上角的caps状态灯会亮起,提示使用者目前是英文大写状态。
4、再按一次apslock键也就是大写锁定键即可取消英文大写状态,取消之后caps状态灯会熄灭,提示使用者目前不是英文大写状态。
在vfp中 英文大小写转换的问题
表单中有三个按钮分别是大写小写和复原就在复原的时候不会做老师提示在text1中的interactivechange中编写代码a=thisform.text1.value但是在复原按钮下的click事件中的代码不会编写请教...
表单中有三个按钮 分别是大写 小写和复原 就在复原的时候不会做 老师提示在text1中的interactivechange中编写代码 a=thisform.text1.value 但是在复原按钮下的click事件中的代码不会编写 请教一下 怎么写
展开
使用函数
upper() 所有字母大写
例如
qq='aBc'
? upper(qq)
ABC
lower() 所有字母小写
例如
qq='aBc'
? lower(qq)
abc
如何实现在Word中对英文字母进行大小写转换
工具:
word2016
方法如下:
1、鼠标左键双击计算机桌面Word2016程序图标,将其打开运行。并点击“打开其他文档”选项。打开需要编辑的Word文档。如图所示;
2、在打开的Word文档窗口中,选择需要转换的英文字母。如图所示;
3、而后依次选择字体功能区的“更改大小写”-->“全部小写”命令选项。如图所示;
4、选择“全部小写”选项后,可以看到设置为小写字母后的效果。如图所示;
5、依次选择字体功能区的“更改大小写”-->“每个单词首字母大写”命令选项。如图所示;
6、选择“每个单词首字母大写”选项后,可以看到设置为每个单词首字母大写后的效果。在更改大小写中,根据不同的需要进行设置即可。如图所示;
怎么转变Excel表格中英文字母大小写
工具/原料
microsoft office excel 2007
方法/步骤:
1,打开一份英文菜谱。列A的英文字母都是大写。现在需要将英文字母转变为全部小写字母。
2,将光标移动到B2单元格,输入公式=lower(A2)。注:lower函数大小写不影响最后的结果。括号内单元格根据您实际的需要确定。
3,将光标移动到B2单元格右下角。鼠标呈十字架状,下拉列表。结果如图所示。
4,将大写字母转变为首字母大写,其余字母小写的样式。将列B删除。重新将光标移动到B2单元格输入公式=proper(B2),
5,重复步骤3.将光标移动到B2单元格右下角。鼠标呈十字架状,按Enter键查看B2显示结果,下拉列表。最终的结果如图所示。
Ps:如果想将小写的英文字母转变为大写可以使用=Upper()函数。具体的步骤和上述一致。