阅读以下说明和Visual Basic代码,填入(n)处。 [说明] 在一些财务软件中,经常需要将阿拉伯数字的账

Question

阅读以下说明和Visual Basic代码，填入(n)处。

[说明]

在一些财务软件中，经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法，例如：

“3.45”转化为“叁元四角五分”；

“3.4”转化为“叁元四角”；

“3.40”转化为“叁元四角零分”；

“3.456”转化为“叁元四角五分”；

“345.00”转化为“叁百四十五元零角零分”；

“345”转化为“叁百四十五元”；

以下Visual Basic代码实现了小写金额转换为大写金额。界面如图10-9所示。结合实际例子说明，仔细阅读下面代码，将(n)代码补充完整。

[代码7-1]

Begin VB.FormForm1

Caption = "小写金额转换为大写金额"

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

Begin VB.CommandButton Command1

Caption = "退出"

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

End

Begin VB.TextBox Text2

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

End

Begin VB.TextBox Text1

Enabled = 0 "False

//…窗体描述(略)

End

Begin VB.Labe1 Labe12

Caption = "转换为大写金额"

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

End

Begin VB.Labe1 Labe11

Caphon = "请输入数字"

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

End

End

[代码7-2]

Private Function setdata (num As Integer) As String "数字转换

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 "位数转换

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 ( ) "小写转大写

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 "转换小数位

mystr4=Left(mystr3, 1)

mystr3=Right(mystr3, Len(mystr3 )

Answer 1

正确答案：(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)+chang(j)
(1)mystr2=mystr2+setdata(Val(mystr4))+"角" (2)mystr2=mystr2+setdata(Val(mystr4))+"分" (3)If Right(mystr1,1) ＞"万"Then mystr1=mystr1&"万" (4)I fRight(mystr1,1) ＞"零"And Right(money,j) ＞0 Then mystr1=mystr1&"零" (5)mystr1=mystr1 & setdata(money1)+chang(j) 解析：本题设计了将阿拉伯数字的帐目转化为汉语习惯上的金额计数的小程序。(1)实现小数部分的.“角”转化。(2)实现小数部分的“分”转化。(3)、(4)、(5)实现了整数部分转化。