无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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è)人士。

標簽

主站蜘蛛池模板: a级毛片免费观看在线播放 a级毛片免费看久久 | 99久久久无码国产AAA精品 | 久久精品国产亚洲av未满十八 | 中文字幕高清免费日韩视频在线 | 久久久久无码专区亚洲av | 国产高潮国产高潮久久久91 | 国产99视频精品免费视频美女 | 久久久久无码精品国产91福利 | 久久婷婷五月综合色丁香 | 精品人妻无码专区在线视频 | 欧洲亚洲精品A片久久99果冻 | 乱肉怀孕系列小说 | 亚洲国产欧美国产第一区二区 | 一区二区无码在线 | 在线精品视频一区二区三四 | 亚洲国产成人精品区综合 | 久久久无码中文字幕久 | 国产成人免费视频精品一区二区 | 国产在线激情视频 | 国产百万高清管道内窥镜 | 丰满五十老女人性视频 | 国产午夜精品一 | 久久人妻精品一区二区三区hd综艺手机在线观看 | 91精品国产高清自在线看香蕉网 | 日韩一级精品视频在线观看 | 国产欧美日韩一区二区免费 | 成人精品视频三区二区一区 | 制服丝袜在线一区 | 麻豆av网址在线观看 | 香港日本韩国三级网站 | a级成人毛片免费在线观看 a级成人免费毛 | 国产精品免费一区二区三区在线 | 精品国产一级在线观看 | 苍井空在线观看 | 精品久久久久久无码专区不 | 亚洲av色婷婷在线观看 | 国产精品污在线观看 | 日本手机在线视频 | 国产成人精品三级 | 2024一級特黃色毛片免費看 | 国产亚洲精品久久久999密臂 |