首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明和Visual Basic代码,填入(n)处。 [说明] 在一些财务软件中,经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法,例如: “3.45”转化为“叁元四角五分”; “3.4”转化为“叁元四角”; “
阅读以下说明和Visual Basic代码,填入(n)处。 [说明] 在一些财务软件中,经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法,例如: “3.45”转化为“叁元四角五分”; “3.4”转化为“叁元四角”; “
admin
2009-02-15
50
问题
阅读以下说明和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
软件设计师下午应用技术考试
软考中级
相关试题推荐
某个应用中,需要对输入数据进行排序,输入数据序列基本有序(如输入为1,2,5,3,4,6,8,7)。在这种情况下,采用(40)排序算法最好,时间复杂度为(41)。(40)
经测试发现某软件系统存在缓冲区溢出缺陷,针对这一问题,最可靠的解决方案是()。
假定X为整数类型变量,X>=1并且X<=10,如果用边界值分析法,X在测试中应该取(48)值。
为保证测试活动的可控性,必须在软件测试过程中进行软件测试配置管理,一般来说,软件测试配置管理中最基本的活动包括(65)
零件关系P(零件名,条形码,供应商,产地,价格)中的(12)属性可以作为该关系的主键。查询产于西安且名称为“P2”的零件,结果以零件名、供应商及零件价格分列表示,对应的SQL语句为:SELECT零件名,供应商,价格FROMPWHE
在结构化分析方法中,数据流图描述数据在系统中如何被传送或变换,反映系统必须完成的逻辑功能,用于(38)建模。在绘制数据流图时,(39)。(39)
软件设计阶段一般又可分为______。A.逻辑设计与功能设计B.概要设计与详细设计C.概念设计与物理设计D.模型设计与程序设计
V模型是具有代表意义的测试模型,以下理解正确的是______。A.V模型认为测试阶段是与开发阶段并行的B.V模型是软件开发螺旋模型的变种,它反映了测试活动与分析和设计的关系C.V模型造成需求分析阶段隐藏的问题一直到后期的验收测试才被发现D.V模型是
软件测试使用各种术语描述软件出现的问题,以下叙述正确的是______。A.软件错误(error)是指在软件生命周期内的不希望或不可接受的人为错误,其结果是导致软件故障的产生B.软件缺陷(defect)是存在于软件(文档、数据、程序)之中的那些不希望或不
根据你的网络工程经验,请用250字以内的文字简要描述该21层教学综合大楼网络层次结构设计的要点。(不要求画图)该21层教学综合大楼的部分网络拓扑结构如图1-22所示,其中L3_switch1、L3_switch2为该教学综合大楼的两台核心交换机;Swi
随机试题
下列关于电阻温度计的叙述中,()是不恰当的。
治疗热哮的方剂是
患儿男,5岁。睡中经常遗尿,一夜1~2次,甚则数次,醒后方觉。伴面色苍白,神疲乏力,肢凉怕冷,腰腿疫软,下肢无力,小便清长,舌质较淡。治疗首选方剂为
经过深层搅拌桩处理后的地基属于:
影子价格反映在投资项目的产出上是一种消费者()或()。
()是由股票的上涨家数和下跌家数的比值,推断股票市场多空双方力量的对比,进而判断出股票市场的实际情况。
通过下列措施可以提高销售息税前利润率的有()。
已知均值μ的置信区间为也可表示为()。
设X为一个总体且E(X)=k,D(X)=1,X1,X2,…,Xn为来自总体的简单随机样本,令问n多大时才能使
有如下程序:PrivateSubCommand1_Click() DimiAsInteger,jAsInteger DimsumAsInteger n=1 Do j=1 Do sum=su
最新回复
(
0
)