用VB.NET实现人民币大小写转换工具 （互相转换）

Public Function je(ByVal szje As Double) As String

保康网站建设公司创新互联公司,保康网站设计制作，有大型网站制作公司丰富经验。已为保康千余家提供企业网站建设服务。企业网站搭建\成都外贸网站制作要多少钱，请找那个售后服务好的保康做网站的公司定做！

Dim s As String = ""

Dim sz() As String = {"零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖"}

Dim dw() As String = {"圆", "拾", "佰", "千", "万", "拾", "佰", "仟", "拾", "佰", "仟"}

If szje 0 Then

s = "负"

szje = Math.Abs(szje)

End If

Dim zh() As String = Split(Str(szje), ".")

If zh.Length 2 Then

Return "ERROR:格式错"

Exit Function

End If

zh(0) = Trim(zh(0))

zh(1) = Trim(zh(1))

Dim i As Integer

For i = 1 To Len(zh(0))

s = s sz(Val(Mid(zh(0), i, 1))) dw(Len(zh(0)) - i)

Next

For i = 1 To Len(zh(1))

s = s sz(Val(Mid(zh(1), i, 1))) Choose(i, "角", "分", "厘", "毫")

Next

s = s "整"

Return s

End Function

对于金额面值VB编写程序

是不是要的是这个东东

要么你就说清楚点，如果程序能编出人民币来

那我们还要这样吗

某日，一女遇劫匪,颤抖曰："俺是搞.net的，刚毕业，工作都没找到，真的没有钱……"

劫匪听后竟然痛哭流涕，"妹子，俺也是搞.net的，你拿好学生证，前面抢劫的还是搞.net的，你放心，我们绝不抢自己人！"

之后，此女一路出示学生证，均平安无事，最后碰到一个瘦骨嶙峋的劫匪，硬不放她过去。一番纠缠后，劫匪有气无力的说"就随便打发点也好！我饿得~~快~~快~不行了~！"话音刚落，晕倒在地。女抱起劫匪嚎啕大哭"我们搞.net的咋就这么好命苦呀！""妹子，我~~``我是搞java的

.net相关问题

一般学.NET都是学 C# ASP.NET是针对做网站而言的，你要是学习C#,我们习惯把他叫做ASP.NET(C#)

你要是真的想学好的话，不管以后是做C/S还是B/S，推荐入门看《C#入门经典》这本书。说实话，.NET相对C++等而言还算简单，入门应该会很容易，自己要多敲代码，不要光看书，那样一点用都没有的。

然后看你发展方向了，不出意外是B/S了，现在大多数都是做网站的，那就看《ASP.NET 2.0 高级编程》

当然我说的只是针对.NET这门语言而言的，还有DIV+CSS是肯定要熟练掌握的，javascript也是要熟悉的，起码要知道一些基本用法，ajax的话不必太急于去学，一般招聘企业不会明确要求你会ajax。你现在还没入门，等你感觉自己能力到了再说。

vb.net请教各位高手，谁有用VB.NET写输入法的实例?

输入法编程是件很繁锁的事情,

你可以在网上找找, 记得曾经我进入过, [输入法编程爱好者] 的一个论坛, 你找找看.

vb.net 如何把大写金额转换成阿拉伯数字金额？

Private Sub Text2_Change() '大写金额转换成阿拉伯数字金额

Dim i As Integer

Dim j As Integer

Dim myint As Integer

Dim myint1 As Integer

Dim mydoub As Double

Dim mystr As String

Dim mystr1 As String

Dim mystr2 As String

Dim mystr3 As String

Dim mystr4 As String

Dim money As Long

Dim money1 As Integer

Dim money2 As Long

mystr = Text2.Text

myint = InStr(mystr, ".")

If myint = 0 Then

mystr = Text2.Text

Else

mystr3 = Right(Text2.Text, Len(Text2.Text) - myint)

If mystr3 "" Then '转换小数位

mystr4 = Left(mystr3, 1)

mystr3 = Right(mystr3, Len(mystr3) - 1)

If mystr4 "0" Then

mystr2 = mystr2 + setdata(Val(mystr4)) + "角"

End If

If mystr3 "" Then

mystr4 = Left(mystr3, 1)

mystr2 = mystr2 + setdata(Val(mystr4)) + "分"

End If

End If

mystr = Left(Text2.Text, myint - 1)

End If

j = Len(mystr)

For i = 1 To Len(mystr) '转换整数位

money2 = Left(mystr, i)

money1 = Right(money2, 1)

If money1 = 0 Then

If j = 5 Then

If Right(mystr1, 1) "万" Then mystr1 = mystr1 "万"

Else

If Right(mystr1, 1) "零" And Right(money, j) 0 Then mystr1 = mystr1 "零"

End If

Else

mystr1 = mystr1 setdata(money1) + chang(j)

End If

j = j - 1

Next i

Text1.Text = mystr1 "元" mystr2 '显示大写

End Sub

新闻名称：vb.net人民币 VBG数字货币
文章转载：http://myzitong.com/article/dooiecs.html