會計學原理重點

會計等式： 資產=負債+所有者權益+收入－費用

會計科目按經濟內容分類

一． 資產類

庫存現金 銀行存款 應收票據 應收賬款 預付賬款 應收股利 應收利息

其他應收款 材料采購 原材料 庫存商品 固定資產 固定資產減值準備 壞賬準備 累計折舊 無形資產 累計攤銷 待處理財產損溢 商譽

二． 負債類

短期借款 應付票據 應付賬款 預收賬款 應付職工薪酬 應交稅費 應付利息

應付股利 其他應付款 長期借款 應付債券

三． 所有者權益類

實收資本 資本公積 盈余公積 本年利潤 利潤分配

四． 成本類 生產成本 制造費用

五． 損益類

費用類：銷售費用 管理費用 財務費用 所得稅費用 營業(yè)外支出 營業(yè)稅金及附加 主營業(yè)務成本 其他業(yè)務成本 （營業(yè)成本） 資產減值損失

收入類：主營業(yè)務收入 其他業(yè)務收入（營業(yè)收入） 營業(yè)外收入 公允價值變動損益

書P93賬戶類別 借方 貸方

資產類 增加 減少 有余額在借方

負債類 減少 增加 有余額在貸方

所有者權益類 減少 增加 有余額在貸方

成本類 增加 減少

收入類 減少 增加

費用類 增加 減少

賬戶按用途和結構分類 （書P116）

集合分配賬戶：制造費用

跨期攤銷賬戶：長期待攤費用

成本計算賬戶：生產成本，在建工程，研發(fā)支出

財務成果賬戶：本年利潤

計價對比帳戶：材料采購

暫記賬戶：待處理財產損溢

盤存賬戶：

資本賬戶：

結算賬戶： 債權結算賬戶

債務結算賬戶

調整賬戶： 備抵調整賬戶

附加調整賬戶

備抵附加調整賬戶

匯轉賬戶： 收入匯轉賬戶

費用匯轉賬戶

企業(yè)主要經濟業(yè)務核算

籌資業(yè)務核算P127

賬戶設置—— 實收資本 資本公積 銀行存款 固定資產 無形資產 短期借款 長期借款 應付債券 應付利息 財務費用

采購業(yè)務核算P133

賬戶設置—— 材料采購 原材料 庫存現金 應付賬款 預付賬款 應付票據

制造業(yè)務核算P138

賬戶設置—— 生產成本 制造費用 管理費用 累計折舊 應付職工薪酬 庫存商品

銷售業(yè)務核算P148

賬戶設置—— 主營業(yè)務收入 主營業(yè)務成本 其他業(yè)務收入 其他業(yè)務成本 銷售費用 營業(yè)稅金及附加 應收票據 應收賬款 預收賬款 應交稅費

財務成果業(yè)務核算P153

l 財務成果是企業(yè)一定期間內生產經營取得的最終成果，表現為利潤或虧損。

l

利潤的形成 營業(yè)利潤=營業(yè)收入-營業(yè)成本- 營業(yè)稅金及附加－銷售費用

－管理費用－財務費用

利潤總額=營業(yè)利潤+營業(yè)外收入-營業(yè)外支出

凈利潤=利潤總額－所得稅費用﹝應納稅所得額（利潤總額）*稅率（25%）﹞

賬戶設置 —— 營業(yè)外收入 營業(yè)外支出 所得稅費用 利潤分配 盈余公積 應付股利

凈利潤分配 提取盈余公積

未分配利潤

向投資者分配股利或利潤

會計：以貨幣為主要計量單位，對企事業(yè)單位的經濟活動進行連續(xù)，系統(tǒng)，全面，綜合地反映和監(jiān)督的一種管理活動。

會計職能 基本職能

其他職能

會計特定目標

會計基礎 收付實現制

權責發(fā)生制

會計信息質量要求（8項）

會計核算的基本程序

會計核算的方法（7步）

“累計折舊”是“固定資產”的備抵調整賬戶，但“累計折舊”賬戶為借方反映折舊額的減少，貸方則增加。 (固定資產凈值=固定資產賬戶余額—累計折舊賬戶余額)

材料采購：材料的采購費用，包括買價，運輸費，裝卸費，保險費及購入材料時應負擔的稅金等其他費用。

產品成本：各種生產費用之和。

生產成本（生產費用）：直接材料，直接人工，制造費用。

制造費用：用于產品生產的各種耗費，如機器設備的折舊費，勞動保護費，機物料消耗等 。還包括車間范圍內發(fā)生的辦公費，水電費，生產管理人員的薪酬。

直接材料：構成產品實體的原料，主要材料以及有助于產品形成的輔助材料。 直接人工：直接從事生產的人員的薪酬的總和。

管理費用：行政管理人員的薪酬，管理使用固定資產的折舊費，管理部門的辦公費以及企業(yè)生產車間和行政管理部門發(fā)生的 固定資產修理費等。

財務費用：包括利息支出（減利息收入）以及相關的手續(xù)費。

銷售費用：企業(yè)銷售商品及提供勞務過程中發(fā)生的費用，包括運輸費，裝卸費，包裝費，保險費，展覽費，廣告費等。

會計憑證：記錄經濟業(yè)務，明確經濟責任，作為登記賬簿依據的書面證明。

會計憑證的種類

★原始憑證（書P169） 按來源不同

按填制手續(xù)和方法

記賬憑證

記賬憑證的填制要求（7點）

會計賬簿：由具有一定格式且又相互聯(lián)系的帳頁組成，以審核無誤的會計憑證為依據，用來連續(xù)，系統(tǒng)，全面地反映各種經濟業(yè)務的簿籍。

賬簿的分類（書P206）

★按用途

○按外表形式

▲按帳頁格式

錯誤更正方法（書P230）（賬簿記錄錯誤）

（記賬憑證正確）劃線更正法

紅字更正法 會計科目錯誤

會計科目正確， 金額多計

補充登記法 會計科目正確，金額少計

對賬與結賬P230

財產清查：是對各項財產、物資進行實地盤點和核對，查明財產物資、貨幣資金及債權債務的實存數，并與賬面數進行核對，從而檢查賬實是否相符的一種會計專門核算方法。P246

財產清查的種類 按清查范圍

按清查時間

內容 1.實物資產清查

2.庫存現金清查

3.銀行存款清查（銀行存款余額調節(jié)表P251）

財產清查的結果處理

借方 待處理財產損溢 貸方

1. 清查時盤虧數 清查時盤盈數

2. 批準后盤盈轉銷數 批準后盤虧轉銷數

會計核算程序：會計憑證和帳簿組織與記賬程序和方法有機結合的方式。P317

會計核算程序的種類

名稱 優(yōu)點 缺點 ★適用范圍

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