无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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桃色无码国产在线观看二区 | 本一区二区三区 | 无码少妇一区二区三区 | 久久人妻无码中文字幕 | 国产自国产自愉自愉免费24区 | 中文字幕不卡一区 | 亚洲永久精品无码中文字幕 | 人妻精品无码影视影 | 波多野吉衣人妻无码潮喷av | 久久久精品国产亚州av水蜜桃 | 性一交一乱一伦一色一情孩交 | 亚洲欧美日韩久久一区二区三区 | 国产麻豆精品sm调教视频网站 | 国产精品高清视亚洲中文 | 国产美女在线一区二区三区 | 国产精品亚洲精品无码 | 无码制服丝袜国产另类 | 熟女视频人妻欧美国产精品麻豆成人a | 制服丝袜美腿一区二区 | 日韩免费精品毛片一区二区三区 | 国产成人综合怡春院 | 精品偷自拍另类在线观看丰满白嫩大屁股ass | 久久久久久无码精品亚洲日韩 | 久久九九日本韩国精品 | a级黑人大硬长爽猛出猛进 a级黄韩国电影免费久久久 | 成人午夜又粗又硬又长 | 久久久久久久精品无码中文字幕 | 国产成人精品电影在线观看 | a级情欲片国产 | 国产精品自产拍在线观看涩爱 | 无码精品人妻一区二区三区颖A片 | 亚洲精品国产一区二区三区四区 | 欧美精产国品一二三类产品区别 | 99久久久国产 | 精品国产国偷自产在线观看99久久久无码国产精品免费精品乱 | 高潮喷水无遮挡 | 蜜桃麻豆WWW久久国产SEX | 在线观看视频一区 | 国产精品无码免费播放 | 国产a毛片精品视频日日夜 国产a毛片一级视频 | 亚洲日本乱码在线观看 |