资源描述
-!
会计学原理重点
会计等式： 资产=负债+所有者权益+收入－费用
会计科目按经济内容分类
一． 资产类
库存现金 银行存款 应收票据 应收账款 预付账款 应收股利 应收利息
其他应收款 材料采购 原材料 库存商品 固定资产 固定资产减值准备 坏账准备 累计折旧 无形资产 累计摊销 待处理财产损溢 商誉
二． 负债类
短期借款 应付票据 应付账款 预收账款 应付职工薪酬 应交税费 应付利息
应付股利 其他应付款 长期借款 应付债券
三． 所有者权益类
实收资本 资本公积 盈余公积 本年利润 利润分配
四． 成本类 生产成本 制造费用
五． 损益类
费用类：销售费用 管理费用 财务费用 所得税费用 营业外支出 营业税金及附加 主营业务成本 其他业务成本 （营业成本） 资产减值损失
收入类：主营业务收入 其他业务收入（营业收入） 营业外收入 公允价值变动损益
书P93账户类别 借方 贷方
资产类 增加 减少 有余额在借方
负债类 减少 增加 有余额在贷方
所有者权益类 减少 增加 有余额在贷方
成本类 增加 减少
收入类 减少 增加
费用类 增加 减少
账户按用途和结构分类 （书P116）
集合分配账户：制造费用
跨期摊销账户：长期待摊费用
成本计算账户：生产成本，在建工程，研发支出
财务成果账户：本年利润
计价对比帐户：材料采购
暂记账户：待处理财产损溢
盘存账户：
资本账户：
结算账户： 债权结算账户
债务结算账户
调整账户： 备抵调整账户
附加调整账户
备抵附加调整账户
汇转账户： 收入汇转账户
费用汇转账户
企业主要经济业务核算
筹资业务核算P127
账户设置—— 实收资本 资本公积 银行存款 固定资产 无形资产 短期借款 长期借款 应付债券 应付利息 财务费用
采购业务核算P133
账户设置—— 材料采购 原材料 库存现金 应付账款 预付账款 应付票据
制造业务核算P138
账户设置—— 生产成本 制造费用 管理费用 累计折旧 应付职工薪酬 库存商品
销售业务核算P148
账户设置—— 主营业务收入 主营业务成本 其他业务收入 其他业务成本 销售费用 营业税金及附加 应收票据 应收账款 预收账款 应交税费
财务成果业务核算P153
l 财务成果是企业一定期间内生产经营取得的最终成果，表现为利润或亏损。
l 利润的形成 营业利润=营业收入-营业成本- 营业税金及附加－销售费用
－管理费用－财务费用
利润总额=营业利润+营业外收入-营业外支出
净利润=利润总额－所得税费用﹝应纳税所得额（利润总额）*税率（25%）﹞
账户设置 —— 营业外收入 营业外支出 所得税费用 利润分配 盈余公积 应付股利
净利润分配 提取盈余公积
未分配利润
向投资者分配股利或利润
会计：以货币为主要计量单位，对企事业单位的经济活动进行连续，系统，全面，综合地反映和监督的一种管理活动。
会计职能 基本职能
其他职能
会计特定目标
会计基础 收付实现制
权责发生制
会计信息质量要求（8项）
会计核算的基本程序
会计核算的方法（7步）
“累计折旧”是“固定资产”的备抵调整账户，但“累计折旧”账户为借方反映折旧额的减少，贷方则增加。 (固定资产净值=固定资产账户余额—累计折旧账户余额)
材料采购：材料的采购费用，包括买价，运输费，装卸费，保险费及购入材料时应负担的税金等其他费用。
产品成本：各种生产费用之和。
生产成本（生产费用）：直接材料，直接人工，制造费用。
制造费用：用于产品生产的各种耗费，如机器设备的折旧费，劳动保护费，机物料消耗等 。还包括车间范围内发生的办公费，水电费，生产管理人员的薪酬。
直接材料：构成产品实体的原料，主要材料以及有助于产品形成的辅助材料。 直接人工：直接从事生产的人员的薪酬的总和。
管理费用：行政管理人员的薪酬，管理使用固定资产的折旧费，管理部门的办公费以及企业生产车间和行政管理部门发生的 固定资产修理费等。
财务费用：包括利息支出（减利息收入）以及相关的手续费。
销售费用：企业销售商品及提供劳务过程中发生的费用，包括运输费，装卸费，包装费，保险费，展览费，广告费等。
会计凭证：记录经济业务，明确经济责任，作为登记账簿依据的书面证明。
会计凭证的种类
★原始凭证（书P169） 按来源不同
按填制手续和方法
记账凭证
记账凭证的填制要求（7点）
会计账簿：由具有一定格式且又相互联系的帐页组成，以审核无误的会计凭证为依据，用来连续，系统，全面地反映各种经济业务的簿籍。
账簿的分类（书P206）
★按用途
○按外表形式
▲按帐页格式
错误更正方法（书P230）（账簿记录错误）
（记账凭证正确）划线更正法
红字更正法 会计科目错误
会计科目正确， 金额多计
补充登记法 会计科目正确，金额少计
对账与结账P230
财产清查：是对各项财产、物资进行实地盘点和核对，查明财产物资、货币资金及债权债务的实存数，并与账面数进行核对，从而检查账实是否相符的一种会计专门核算方法。P246
财产清查的种类 按清查范围
按清查时间
内容 1.实物资产清查
2.库存现金清查
3.银行存款清查（银行存款余额调节表P251）
财产清查的结果处理
借方 待处理财产损溢 贷方
1. 清查时盘亏数 清查时盘盈数
2. 批准后盘盈转销数 批准后盘亏转销数
会计核算程序：会计凭证和帐簿组织与记账程序和方法有机结合的方式。P317
会计核算程序的种类
名称 优点 缺点 ★适用范围
1.记账凭证
2.科目汇总表
3.汇总记账凭证
4.多栏式日记账
会计财务报告：由会计报表和会计报表附注构成
分类：1.按报送对象 对外报告；对内报告（资产负债表，利润表，现金流量表，所有者权益变动表
2.按编制主体 个别报告；合并报告
3.按编制时间 年度，半年度，季度，月度报告
资产负债表有关项目的填列P289
货币资金=
应收账款=
预付款项=
应付账款=
预收款项=
存货=
固定资产=
【程序填空】
题目：<<信息加密问题。信息加密有各种方法，最简单的一种加密方法是：
将每个字母加一个序数，序数称为密钥。如果取序数为3，那么转换的方式就是:
"A"→"D"，"B" →"D"，"a" →"d"，"Y" →"B"，"Z" →"C"
解密过程与加密过程正好相反。
编一个加密程序，将输入的一行字符串中的所有字母加密。>>
Function Code(ByVal S$, ByVal Key%)
Dim C As String * 1, IAsc%, I%
Code = ""
For I = 1 To Len(S)
**********SPACE**********
C = Mid$(S, I, 1)
IAsc = Asc(C)
Select Case C
Case "A" To "Z"
IAsc = IAsc + Key
**********SPACE**********
If IAsc > Asc("Z") Then IAsc = IAsc - 26
Code = Code + Chr(IAsc)
Case "a" To "z"
IAsc = IAsc + Key
**********SPACE**********
If IAsc > Asc("z") Then IAsc = IAsc - 26
Code = Code + Chr(IAsc)
Case Else
Code = Code + C
End Select
Next I
End Function
Private Sub Command1_Click()
Text2 = Code(Text1, 2)
End Sub
【程序填空】
题目：将字符串S1反向输出
Private Sub Command1_Click()
Dim s1 As String, s2 As String
s1 = "abcdef"
**********SPACE**********
Call Invert(s1, s2)
Print s2
End Sub
Private Sub Invert(ByVal xstr As String, ystr As String)
Dim tempstr As String
Dim i As Integer
**********SPACE**********
i = Len(xstr)
Do While i >= 1
tempstr = tempstr + Mid(xstr, i, 1)
i = i - 1
**********SPACE**********
Loop
ystr = tempstr
End Sub
【程序填空】
题目：程序功能：在Text1，Text2，Text3中分别输入三个数字，
在Text4中计算这三个数的和。如果三个文本框的输入不
为数字则显示错误提示
Private Sub Command1_Click()
Dim a As String, b As String, c As String
a = Trim(Text1.Text)
b = Trim(Text2.Text)
c = Trim(Text3.Text)
**********SPACE**********
If che(a) And che(b) And che(c) Then
Text4.Text = Val(a) + Val(b) + Val(c)
Else
Text4.Text = "存在非数字字符"
End If
End Sub
Function che(x As String) As Boolean 若存在非数字字符，函数值为假
Dim k As Integer
Dim s As String
**********SPACE**********
che = True
For k = 1 To Len(x)
s = Mid(x, k, 1)
**********SPACE**********
If s < "0" Or s > "9" Then
che = False
Exit For
End If
Next k
End Function
【程序改错】
题目:下列程序进行n阶乘运算，当阶乘的值超过21147483648
溢出报错，并将结果输出为-1。
**********FOUND**********
Private Function jc(ByVal n As Integer) As Long
Dim I As Integer
Dim result As Long
result = 1
I = 1
Do While I <= n
If result < 21147483648# / I Then
**********FOUND**********
result = result * I
I = I + 1
Else
lblerr.Caption = "溢出"
**********FOUND**********
jc = -1
Exit Function
End If
Loop
jc = result
End Function
Private Sub Form_Click()
MsgBox jc(3)
End Sub
【程序改错】
题目：已知自然对数的底数e的级数表示如下:
e=1+1/1!+1/2!+1/3!+......+1/n!+.....
本程序利用函数过程fact()求e，其中绝对值小于
1E-8的项被忽略。
Private Function fact(m As Integer) As Single
Dim x As Single, i As Integer
x = 1
For i = 1 To m
**********FOUND**********
x = x * i
Next i
fact = x
End Function
Private Sub Form_Click()
Dim e As Single, item As Single
Dim n As Integer
e = 1
**********FOUND**********
n = 0
Do
n = n + 1
item = 1 / fact(n)
e = e + item
**********FOUND**********
Loop While item >= 0.00000001
Form1.Print "e="; e
End Sub
【程序改错】
题目：在下面的程序段中过程pd可以判断任意三个数能
否构成三角形的三边，利用该过程的判定结果，
对能构成三角形的计算其面积，构不成的显示"
不能构成三角形"
Option Explicit
Private Sub Form_Click()
**********FOUND**********
Dim x%, y%, z%, s!, b As Boolean, h As Single
x = InputBox("请输入三角形的边长，要求输入整数！")
y = InputBox("请输入三角形的边长，要求输入整数！")
z = InputBox("请输入三角形的边长，要求输入整数！")
b = pd(x, y, z)
h = (x + y + z) / 2
**********FOUND**********
If b Then
s = Sqr(h * (h - x) * (h - y) * (h - z))
Print "三角形面积是"; s
Else
Print "不能构成三角形"
End If
End Sub
**********FOUND**********
Public Function pd(x%, y%, z%) As Boolean
If x > 0 And y > 0 And z > 0 And x + y > z And x + z > y And y + z > x Then
pd = True
Else
pd = False
End If
End Function
展开阅读全文
相关搜索