2. 计算机
  3. 阅读以下说明和Visual Basic代码，填入(n)处。 [说明] 在一些财务软件中，经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法，例如： “3.45”转化为“叁元四角五分”； “3.4”转化为“叁元四角”； “

阅读以下说明和Visual Basic代码，填入(n)处。 [说明] 在一些财务软件中，经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法，例如： “3.45”转化为“叁元四角五分”； “3.4”转化为“叁元四角”； “

admin2009-02-15  27
问题 阅读以下说明和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 ) - 1)
            If mystr4＜＞"0"Then
                 (1)   
            End If
            If mystr3＜＞""Then
                 mystr4=Left(mystr3, 1)
                 (2)   
              End If
        End If
        mystr=Left(Text2.Text,myint - 1)
       End If
       j=Len(mystr)
          For i=1 To Len(mystr,i)
              money2=Left(mystr,i)
              money1=Right(money2,1)
              If money1=0 Then
                  Ifj=5 Then
                     (3)   
                 Else
                  (4)   
                 End If
             Else
                  (5)   
             End If
           j=j-1
       Next i
     Text1.Text=mystr1&"元"&mystr2  ’显示大写
   End sub
选项
答案(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)实现了整数部分转化。
转载请注明原文地址:https://kaotiyun.com/show/ggDZ777K
本试题收录于： 软件设计师下午应用技术考试题库软考中级分类
0

软件设计师下午应用技术考试

软考中级

相关试题推荐
随机试题
最新回复(0)