当前位置:首页 » 行业资讯
开发技术指南» 文章正文
    引言: 调用方法text2 = chmoney(val(text1))名
 

 

    摘要:  要获得高质量的渲染图,须经过建模、渲染、后期处理三个基本过程。一个软件很难独立完成以上全部工作,一般是将几个软件联合使用。这就需要制作者很熟悉几个软件的操作以及软件之间的文件转换,一般来说完成以上三个过程最常用的应用软件为:建模 autocad; 渲染3d studio max;后期处理 photoshop。  完成一幅三维效果图的制作,autocad可精确建模,且尺寸输入方便;3ds中精确建......
    摘要:  繁体版的《三国志8》终于推出了,但很多转码工具都不能很好的进行转码,看着大量的乱码实在让人心烦,这里提供给大家一个好的工具,它就是magicwin98,他可以完美的把游戏转码成简体中文显示!   具体方法如下:  点击option   windows system这里选simplified chinese windows   chinese mode 这里选simplified chinese......


人民币金额转换例程
调用方法text2 = chmoney(val(text1))

名称: cch 【程序编程相关:2006中国手机产业战略发展高峰论坛会场

【推荐阅读:2006中国手机产业战略发展高峰论坛参会

得到一位数字 n1 的汉字大写 【扩展信息:EVD掀起中国式战争:猜到了开头却猜不到

0 返回 ""

private function cch(n1) as string

select case n1

case 0

cch = "零"

case 1

cch = "壹"

case 2

cch = "贰"

case 3

cch = "叁"

case 4

cch = "肆"

case 5

cch = "伍"

case 6

cch = "陆"

case 7

cch = "柒"

case 8

cch = "捌"

case 9

cch = "玖"

end select

end function

名称: chmoney

得到数字 n1 的汉字大写

最大为 千万位

o 返回 ""

public function chmoney(n1) as string

dim tmoney as string

dim lmoney as string

dim tn 小数位置

dim s1 as string 临时string 小数部分

dim s2 as string 1000 以内

dim s3 as string 10000

if n1 = 0 then

chmoney = " "

exit function

end if

if n1 < 0 then

chmoney = "负" + chmoney(abs(n1))

exit function

end if

tmoney = trim(str(n1))

tn = instr(tmoney, ".") 小数位置

s1 = ""

if tn <> 0 then

st1 = right(tmoney, len(tmoney) - tn)

if st1 <> "" then

t1 = left(st1, 1)

st1 = right(st1, len(st1) - 1)

if t1 <> "0" then

s1 = s1 + cch(val(t1)) + "角"

end if

if st1 <> "" then

t1 = left(st1, 1)

s1 = s1 + cch(val(t1)) + "分"

end if

end if


...   下一页
    摘要:xitel最新的转换器能够使得mp3歌曲到md碟片的转录更加轻松容易产品名称: xitel dg2 类型: usb-to-digital 光纤转换器l converter 价格: 500人民币 得分: 9/10 comments: 在今年一季度的时候xitel推出了dg1,一款也很优秀的md外设产品。 从设计上来说,dg1和dg2是相同的: 从usb将数据传输到光纤端子上。不过xitel did ......
» 本期热门文章:

©2000-2007 All Rights Reserved. 最佳浏览:1024X768 MSIE