A企业于1999年1月1日以440000元购入B公司股票,占B公司实际发行在外股数的10%,另支付2000元相关税费等,A企业采用成本法核算。1999年5月2日B公司宣告分派1998年度的股利,A企业可以获得40000元的现金股利。2000年1月5日,A企业又以1200000元购入B公司实际发行在外股数的25%,另支付9000元相关税费。至此持股比例达35%,改用权益法核算此项投资。B公司相关资料如下:
(1)1999年1月1日所有者权益合计为4500000元,1999年度实现的净利润为400000元。
(2)2000年6月发现1998年度的重大会计差错计1000000元未作为费用计入损益,将这项重大会计差错进行了更正。2000年度实现净利润为600000元。A企业和B公司的所得税税率均为33%。股权投资差额按10年平均摊销。不考虑追溯调整时股权投资差额摊销对所得税的调整。A企业按净利润10%提取法定公积金,按净利润5%提取法定公益金。
要求:编制1999—2000年A企业该项股权投资的相关会计分录。
查看答案
插入排序算法的主要思想是:每次从未排序序列中取出一个数据,插入到己排序序列中的正确位置。InsertSort类的成员函数sort()实现了插入排序算法。请将画线处缺失的部分补充完整。
class InsertSort{
public:
InsertSort(int* a0,int n0):a(a0),n(n0){}//参数a0是某数组首地址,n是数组元素个数
void sort()
{//此函数假设已排序序列初始化状态只包含a[0],未排序序列初始为a[1]…a[n-1]
for(int i=1;i<n;++i){
int t=a[i];
int j;
for(【 】;j>0;--j){
if(t>=a[j-1])break;
a[j]=a[j-1];}
a[j]==t;}}
protected:
int*a,n;//指针a用于存放数组首地址,n用于存放数组元素个数
};
有的时候制定决策会发现实施起来慢慢会与计划产生偏差。甚至最后的结果完全背离计划。管理学上叫做离心力现象。结合经历谈一下你的认识。
“DZ包餐”公司的经营发展
“DZ包餐”是一家提供全方位包餐服务的公司,是上海某大饭店的下岗工人李杨夫妇于1994年创办的,如今已经发展成为苏锡常和杭嘉湖地区小有名气的餐饮服务企业之一。
“DZ包餐”的服务分为两类:递送盒饭和套餐服务。盒饭主要由荤菜、素菜、卤菜、大众汤和普通水果组成。可供顾客选择的菜单:荤菜6种、素菜10种、卤菜4种、大众汤3种和普通水果3种,还可以定做餐饮佐料。尽管菜单的变化不大,但从年度报表来看,这项服务的总体需求水平相当稳定,老顾客通常每天会打电话来定购。但由于设施设备的缘故,“DZ包餐”会要求顾客在上午10点前电话预定,以便确保准时递送。在套餐服务方面,该公司的核心能力是为企事业单位提供冷餐会、大型餐会,以及一般家庭的家宴和喜庆宴会。客户所需的各种菜肴和服务可以事先预约,但由于这项服务的季节性很强,又与各种社会节日和法定假日相关.有旺季和淡季之分,因此要求顾客提前几周甚至1个月来预定。
“DZ包餐”公司内的设施布局类似于一个加工车间,主要有五个工作区域:热制食品工作区,冷菜工作区,卤菜准备区,汤类与水果准备区,以及一个配餐工作区,专为装盒饭和预定的套菜装盆共享。此外,还有三间小冷库供储存冷冻食品,一间大型干货间供储藏不易变质的物料。但设施设备的限制以及食品变质的风险制约着“DZ包餐”公司的发展规模。虽然饮料和水果可以外购,有些店家愿意送货上门,但总体上还是制约了“DZ包餐”公司提供柔性化服务。在人员配备上,李杨夫妇聘用了10名员工:2名厨师和8名食品准备工,旺季时另外雇佣一些兼职服务员。
包餐行业的竞争是十分激烈的,高质量的食品、可靠的递送、灵活的服务以及低成本的运营等都是这一行业求生存、谋发展的根本。近来,“DZ包餐”公司已经开始感觉到来自愈来愈挑剔的顾客和几家新来的专业包餐企业的竞争压力。顾客愈来愈需要菜单的多样化、服务的柔性化、响应的及时化。最近,李杨夫妇参加了一个现代物流知识培训班,对准时化运作和第三方物流服务的概念印象很深,并认为这些理念正是“DZ包餐”公司要保持其竞争能力所需要的东西。但是他们仍旧感到困惑,那么,“DZ包餐”公司能否借助第三方物流的物流服务。
案例分析要求:
请分析“DZ包餐”公司的经营活动可否引入第三方物流服务,说明理由。
阅读以下应用说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。
【应用说明】
某应用程序可选择打开用户指定的文本文件,将其内容显示在指定的文本框内供用户编辑,并将编辑后的结果保存在用户指定的文件中。运行时的窗口如图6-1所示,其中有6个标签、一个驱动器列表框、一个目录列表框、一个文件列表框、一个文件类型组合框、一个文件编辑文本框、一个文件名文本框以及两个命令按钮。
该程序的开发要求如下。
(1)通过驱动器列表框(Drivel)、目录列表框(Dirl)和文件列表框(Filel),选择文件。
(2)文件类型组合框(Cmb_type)设置为下拉式列表框,其中有三个供选项,分别为“所有文件(*.*)”、“文本文件(*.txt)”和“可执行文件(*.exe)”。在文件列表框中列出的文件类型会自动与文件类型组合框中选择的文件类型相匹配。
(3)在文件列表框中单击一个文件名时,该文件名会显示在文件名文本框 (Txt filename)中。
(4)在文件列表框中双击一个文件名时,若是文本文件,则在文件编辑文本框 (Txt file)中显示该文件的内容并可进行编辑;若不是文本文件,则弹出一个对话框,提示“请选择文本文件!”。
(5)对于编辑后的文本文件,可在文件名文本框中输入新的文件名,并单击命令按钮(Cmd save)进行保存。
【Visual Basic程序代码】
Private Sub Form_Load()
Cmb_type.Addltem "所有文件(*.*)"
Cmb_type.Addltem "文本文件(*.txt)"
Cmb_type.Addltem "可执行文件(*.exe)"
Cmb_type.ListIndex=0
Filel.Pattern="*.*": Txt_filename.Text=" "
Txt_file.Text= " "
End Sub
Private Sub Dirl Change()
Filel.Path=(1)
End Sub
Private Sub Drivel Change()
Dirl.Path=Drivel.Drive
End Sub
Private Sub Cmb_type_click()
Select Case Cmb_type.(2)
Case 0
Filel.Pattern="*.*"
Case 1
Filel.Pattern="*.txt"
Case 2
Filel.Pattern="*.exe"
End Select
End Sub
Private Sub Cmd_save_Click()
usrFile=GetFileName() '函数GetFileName获得要保存的文件名
Open usrFile For Output As 1 '定义usrFile为1号输出文件
Print 1,Txt file.Text '输出到1号文件
Close 1
End Sub
Private Sub Filel_DblClick()
If right(Filel.FileName,3)<>(3)Then
MsgBox "请选择文本文件!"
Exit Sub
End If
usrFile=GetFileName() '函数GetFileName获得要打开的文件名
Open usrFile For Input As 1 '定义usrFile为1号输入文件
Txt_file.Text=" "
DO While (4) EOF(1)
Line Input l,fContext '从1号文件读入一行
Txt_file.Text;Txt file.Text +(5)+vbCrLf
Loop
Close 1
End Sub
'其他代码略