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

標簽

主站蜘蛛池模板: 91在线精品老司机免费播放 | 欧美精品成人一区二区视频一 | 国产精品爆乳在线播放第一人称 | 真人作爱视频免费网站 | 久久久久亚洲av成人网人人软件 | 李宗瑞27g种子详情介绍 | 2024国产麻豆剧传媒在线 | 中文字幕—精品亚洲一区 | 亚洲国产成人精品妇女99 | 人妻无码a∨中文字幕 | 国产亚洲午夜精品a一区二区 | 亚洲欧美色国产综合 | 高清欧美性猛交xxxx黑人猛交 | 成人无码网www在线观看精东 | 日韩美av一区二区三区 | 久久久久人妻一区精品色欧美 | 欧美一级影院 | 日本毛片97爱亚洲综合在线 | 成人国内免费精品视频在线观看 | 国产精品啪啪视频 | 欧美成人wwe在线播放 | 91大神大战丝袜美女在线观看 | 国产一区二区免费精品 | 国产精品免费aⅴ片在线播放 | 亚洲丁香婷婷久久一区二区 | 久久久久久精品毛片a级蜜桃 | 中文无码欧美人妻日韩精品 | 亚洲精品久久久久久无码AV | 日本欧美一区二区三区免费不卡 | 91偷拍一区二区三区精品 | 国产精品成人a在线 | 国内精品久久久久影院日本 | 色综合亚洲色综合网站 | 国产91精品国自产精品播放社区 | a级亚洲片精品久久久久久久 | 美国伊人 | av无码精品1区2区3区 | 久久久国产一区二区三区 | 精品国产不卡一区二区三区三州 | 大陆极品少妇内射AAAAAA | 国产成人精品无码a区在线观看 |