首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明和Visual Basic代码,填入(n)处。 [说明] 在一些财务软件中,经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法,例如: “3.45”转化为“叁元四角五分”; “3.4”转化为“叁元四角”; “
阅读以下说明和Visual Basic代码,填入(n)处。 [说明] 在一些财务软件中,经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法,例如: “3.45”转化为“叁元四角五分”; “3.4”转化为“叁元四角”; “
admin
2009-02-15
48
问题
阅读以下说明和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
软件设计师下午应用技术考试
软考中级
相关试题推荐
结构化开发方法中,(35)主要包含对数据结构和算法的设计。对算法设计时,其主要依据来自(36)。描述算法时,(37)不是理想的表达方式。(35)
某教学管理数据库中,学生、课程关系模式和主键分别为:S(学号,姓名,性别,家庭住址,电话),关系S的主键为学号;C(课程号,课程名,学分),关系C的主键为课程号。假设一个学生可以选择多门课程,一门课程可以由多个学生选择。一旦学生选择某门课程必定有该课程的成
GB/T18905-2002《软件工程产品评价》中确定的通用评价过程包括四个方面,即:确立评价需求,规定评价,设计评价和执行评价,其中有关“规定评价”部分包含的内容有(52)。
在进行产品评价时,评价者需要对产品部件进行管理和登记,其完整的登记内容应包括(35)。①部件或文档的唯一标识符。②部件的名称或文档标题。③文档的状态,包括物理状态或变异方面的状态。④请求者提供的版本、配置和日期信息。
以下属于测试停止依据的是______。①测试用例全部执行结束②测试覆盖率达到要求③测试超出了预定时间④查出了预定数目的故障⑤执行了预定的测试方案⑥测试时间不足
在计算机系统中,系统的______可以用MTTF/(1+MTTF)来度量,其中MTTF为平均无故障时间。
堆是一种数据结构,分为大顶堆和小顶堆两种类型。大(小)顶堆要求父元素大于等于(小于等于)其左右孩子元素。则___________(41)是一个大项堆结构,该堆结构用二叉树表示,其高度(或层数)为___________(42)。(42)
双层双面只读DVD盘片的存储容量可以达到(59)。
某文件管理系统采用位示图(bitmap)记录磁盘的使用情况。如果系统的字长为32位,磁盘物理块的大小为4MB,物理块依次编号为:0、1、2、…,位示图字依次编号为:0、1、2、…,那么16385号物理块的使用情况在位示图中的第(24)个字中描述;如果磁盘的
系统交付后,修改原来打印时总是遗漏最后一行记录的问题,该行为属于______维护。
随机试题
莱蒙托夫的代表作是长篇小说
OnthemorningofNovember18,1755,anearthquakeshookBoston,Massachusetts.JohnWinthrop,aprofessoratHarvardCollege,
上尿路感染包括_______。
A.对流免疫电泳B.火箭免疫电泳C.免疫电泳D.免疫固定电泳E.交叉免疫电泳区带电泳与免疫双扩散相结合的免疫分析技术是
A.艾滋病B.鼠疫C.脊髓灰质炎D.麻风病E.登革热以上疾病中属于甲类传染病的是
甲公司几年来一直按时依法缴纳税款,但税务机关在一次抽查中发现该公司确实因计算错误而少缴部分税款。对此情况下列说法正确的是:
根据信息加工过程理论,()对整个信息加工过程起调控作用,目的就是为了提高信息加工的效率。
按中国传统的四部分类法,《孟子》一书属于()。
Afaster-than-expectedloanissuanceinthefirstthreequartershastakenupalargepartofcommercialbanks’totalcreditquo
A------TakeCareNottoLeaveThingsBehindJ------ShootingProhibitedB------Ladies’RoomK------DoNotLitterC------HandsOf
最新回复
(
0
)