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

標簽

主站蜘蛛池模板: av夜夜躁狠| 欧美群交在线播放1 | 日韩av无码久久精品免费 | 国产精品亚洲专区在线播放 | av片在线观看不卡 | 丝袜偷窥亚洲综合 | 欧美日韩自偷自拍另类 | 给我一个可以免费看片的WWW | 欧美亚洲中文字幕亚洲综合小综合 | 国产精品久久久亚洲第一牛牛 | 久久久久无码精品国产a不卡 | 久久中文字幕人妻AV熟女 | 欧美日韩免费播放一区二区 | 国产伦理精品一二三 | 亚洲AV无码一区二区A片成人 | 成人欧美一区二区三区视频 | 超清中文乱码精品字幕在线观看 | 亚洲性影院 | 久久青青无码AV亚洲黑人 | 五月激激激综合网色播免费 | 毛片随便看 | 精品视频入口 | 亚洲A片V一区二区三区有声 | 成人在免费视频手机观看网站 | 日韩aⅴ无码中文无码电影 日韩aⅴ亚洲欧美一区二区三区 | 精品国产中文在线二区三区四区 | 福利免费无码视频呢国产 | 欧美久久综合性欧美欧美亚洲综合视频 | 18禁黄网站禁片免费观看在线 | 国产成人av在线 | 欧美色欧美亚洲日韩在线播放 | 97影院理论片手机 | 日本三级香港三级人妇99 | 亚洲一区二区三区在线 | 久久久久国产一级毛片高清板 | 午夜精品射精入后重之免费观看 | 久久艳务乳肉豪妇荡乳A片 久久夜色邦福利网 | 99久久久国产精品日本久久区一 | 国产成人精品久久久久欧美 | 久久综合丝袜长腿丝袜 | 天堂VA蜜桃一区二区三区 |