首页 相关文章 将阿拉伯数字转成中文字的程式

将阿拉伯数字转成中文字的程式

一个Form
  一个TextBox
  一个Label
  
  这个修订後的程式是当使用者在TextBox中输入只包含0~9的数值後,在Label中就可看见被转换後的中文字,例如:1560890转成"壹佰伍拾陆万零捌佰玖拾"。程式限制为不可输入超过16个数字。
  
  请建立一个新专案,并在表单中放入上述物件,再把以下程式码复制到表单的程式
  码视窗,最後按下F5来执行。
  
  PrivateSubForm_Load()
  Text1.MaxLength=16
  Text1.Text=""
  Label1.Caption=""
  Label1.AutoSize=True
  Label1.BorderStyle=1
  EndSub
  
  PrivateSubText1_Change()
  Label1.Caption=CChinese(Text1.Text)
  EndSub
  
  PrivateFunctionCChinese(StrEngAsString)AsString
  IfNotIsNumeric(StrEng...[ 查看全文 ]

2016-02-19 标签:

将阿拉伯数字转成中文字的程式的相关文章

手机页面
收藏网站 回到头部