问题
问答题
资料：某企业未设“预收账款”、“预付账款”科目，有关核算均通过“应收账款”、“应付账款”科目核算。月末有关科目余额如表2—1所示。
| 表2—1应收账款、应付账款科目余额表 单位：元 | |||||
| 会计科目 | 借方余额 | 贷方余额 | 会计科目 | 借方余额 | 贷方余额 |
| 应收账款 | 应付账款 | ||||
| ——A公司 | 3800 | ——甲工厂 | 4200 | ||
| ——B公司 | 4500 | ——乙工厂 | 5300 | ||
| ——C工厂 | 1800 | ——丙公司 | 600 | ||
| ——丁公司 | 1500 | ||||
资产负债表中“应付账款”应填列的金额为( )元。
答案
参考答案：9500；
解析： (2)资产负债表中的“应付账款”项目，应根据“应付账款”、“预付账款”两个科目所属的有关明细科目的期末贷方余额计算后填列。“应付账款”项目=应付账款贷方余额+预付账款贷方余额=4200+5300+0=9500(元)。
用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名，再单击“累计”按钮，就能在“总计”文本框中看到该文本文件中的数据之和。在开发过程中，设驱动器列表框名为Drive1，目录列表框名为Dir1，文件列表框名为File1，存放数据的文本文件名为D:\test\vb7\data.txt，“累计”按钮名为sum，“总计”文本框(TextBox)名为text1。[Visual Basic 代码]Private Sub Drive1_Change()Dir1.Path = (1) ’ 用户选择的驱动器反映到目录列表框中End SubPrivate Sub Dir1_Change()File1.Path = (2) ’ 用户选择的文件夹改变文件列表框内容End SubPrivate Sub sum_Click()Dim （3） As New FileSystemObject, （4） As TextStream’ 创建自己的文件系统对象，说明自己的文本流对象If Right(Dir1.Path, 1) = "\" ThenSet myTextFile = fso.OpenTextFile(Dir1.Path + File1.FileName)ElseSet myTextFile = fso.OpenTextFile(Dir1.Path + "\" + File1.FileName)End IfS = 0Dod = Val(myTextFile.ReadRow)S = S + dLoop While （5）Text1.Text = Str$(S)End Sub