无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡av-无码一区二区三区不卡-无码一区二区三区va在线播放

萬能百科  > 所屬分類  > 

閱讀以下說明和Visual Basic代碼,填入(n)處。 [說明] 在一些財務軟件中,經(jīng)常需要將阿拉伯數(shù)字的賬

閱讀以下說明和Visual Basic代碼,填入(n)處。

[說明]

在一些財務軟件中,經(jīng)常需要將阿拉伯數(shù)字的賬目轉(zhuǎn)化為漢語習慣中的金額計數(shù)方法,例如:

“3.45”轉(zhuǎn)化為“叁元四角五分”;

“3.4”轉(zhuǎn)化為“叁元四角”;

“3.40”轉(zhuǎn)化為“叁元四角零分”;

“3.456”轉(zhuǎn)化為“叁元四角五分”;

“345.00”轉(zhuǎn)化為“叁百四十五元零角零分”;

“345”轉(zhuǎn)化為“叁百四十五元”;

以下Visual Basic代碼實現(xiàn)了小寫金額轉(zhuǎn)換為大寫金額。界面如圖10-9所示。結(jié)合實際例子說明,仔細閱讀下面代碼,將(n)代碼補充完整。

[代碼7-1]

Begin VB.FormForm1

Caption = "小寫金額轉(zhuǎn)換為大寫金額"

//...窗體描述(略)

Begin VB.CommandButton Command1

Caption = "退出"

//...窗體描述(略)

End

Begin VB.TextBox Text2

//...窗體描述(略)

End

Begin VB.TextBox Text1

Enabled = 0 "False

//…窗體描述(略)

End

Begin VB.Labe1 Labe12

Caption = "轉(zhuǎn)換為大寫金額"

//...窗體描述(略)

End

Begin VB.Labe1 Labe11

Caphon = "請輸入數(shù)字"

//...窗體描述(略)

End

End

[代碼7-2]

Private Function setdata (num As Integer) As String "數(shù)字轉(zhuǎn)換

Select CaSe num

Case 0

setdata="零"

Case 1

Setdata="壹"

Case 2

Setdata="貳"

Case 3

Setdata="叁"

Case4

Setdata="肆"

Case 5

Setdata="伍"

Case 6

Setdata="陸"

Case 7

Setdata="柒"

Case 8

Setdata="捌"

Case 9

Setdata="玖"

End Select

End Function

Private Function chang (aaa As Integer) As String "位數(shù)轉(zhuǎn)換

Select CaSe aaa

Case 1

chang=""

Case 2

chang="十"

Case 3

chang="百"

Case 4

chang="千"

Case 5

chang="萬"

Case 6

chang="十"

Case 7

chang="百"

Case 8

chang="千"

Case 9

chang="億"

Case 10

chang="十"

End Select

End Function

[代碼7-3]

Private Sub Text2_Change ( ) "小寫轉(zhuǎn)大寫

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 "轉(zhuǎn)換小數(shù)位

mystr4=Left(mystr3, 1)

mystr3=Right(mystr3, Len(mystr3 )

正確答案:

(1)mystr2=mystr2+setdata(Val(mystr4))+"角"(2)mystr2=mystr2+setdata(Val(mystr4))+"分"(3)If Right(mystr11) >"萬"Then mystr1=mystr1&"萬"(4)I fRight(mystr11) >"零"And Right(moneyj) >0 Then mystr1=mystr1&"零"(5)mystr1=mystr1 & setdata(money1)

詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學等領域),建議您咨詢相關領域?qū)I(yè)人士。

標簽

主站蜘蛛池模板: 高潮爽到爆好爽无码喷水视频 | 99久久国产综合精品成人 | 日本卡一卡二卡三新区乱码 | 国产乱子伦视频在线观看 | 精品深夜av无码一区二区老年 | 粉嫩小又紧水又多A片 | 国产精品一区二区国产馆蜜桃 | 国产成人福利在线视 | 99久久久国产精品福利姬 | 美女福利视频一区二区 | 老师洗澡让我吃她胸视频 | 亚洲欧洲国产成人综合一本 | 中文欧美久久水蜜桃无码av一区二区 | 少妇做爰高潮呻吟A片免费 少妇做爰免费视看片 | 国产精品高清一区二区不卡 | 中文字幕视频二区人妻 | 成年女人毛片免费观看不卡 | 伦理片琪琪影院免费观 | 日日碰狠狠躁久久躁AV | 国产综合久久精品东京热中 | 亚洲av无码第一区二区三区 | 一本道久久88综合日韩精品 | 护士毛片 | 四房色播网址 | 五月激情丁香婷婷综合中文字幕 | 国产亚洲精品久久久一区 | 片多多免费观看高清完整视频在线无码三区影院日本最新女 | 黑人巨大进入白人美女视频 | 久久精品无码人妻无码AV蜜臀 | 国产精品成人免费视频 | 国产成人黄色网站视频在线观看 | 成人综合网站 | 久久久999国产精品 久久久999久久久精品 | 国产精品成人在免费线播放 | 女人高潮内射99精品 | 欧洲精品A片久久 | 婷婷激情综合色五月久久 | 亚洲国产成人一区二区在线 | 久久精品免视看国产成人 | 2024黄网 | 久久精品国产亚洲av网站 |