1.发现线索。依据常年的审计经验，企业之间很可能用甲乙企业相互担保、甲乙丙企业之间循环担保的方式取得贷款。因为银行还没有意识到这方面的风险，虽然它们的信贷系统中有现成的数据，却没有用来作分析。

　　2.数据来源。从信贷系统中取出两张表：借款人基本情况表(bas_00036)和借款合同(bas_00014)。按要求完成转换后，引入《通用审计系统》中。

　　3.数据准备。利用通审软件的自编程功能，将这两张表以(营业单位编码，借款人编码)为主关键字相关联，生成一张新表“信贷综合表”，新表中仅保留四个字段，依次为：营业单位编码、借款人编码、借款人、担保从此字段来自借款合同表)。再用(通用审计系统)的输出功能，将该表输出为Excel文件“信贷综合表.Xls”。

　　4.编写程序。

　　使用EXCEL中的VBA的编程，具体操作如下：

　　计算相互担保和循环担保需要四张EXCEL表sheetl至sheet4，打开 Visual Basic编辑器，编写如下几个过程：funl()、pastel()、aroundl()、around2()。

　　(l)过程fun1()：利用sheetl生成sheet2，找出一条记录a中“借款人”字段与其触已录b中“担保人”字段相同的记录来，并将查出的记录b所在记录的序号与记录a生成新的记录，生成新记录字段的顺序为：序号、预留字段、营业单位编码、借款人编码、借款人、担保人，共有2435条记录。(程序略)

　　(2)过程pastel()：根据sheet2中的“序号”字段中的序号，将在sheetl中序号对应记录的“借款人”字段的内容复制到sheet2中的“预留字段”中去。(程序略)

　　(3) aroundl()：根据 sheet2，查找两个企业相互担保的情况。Sheet2中一条记录中，“预留字段”中的“借款人”对应的“担保人”与该记录中“借款人”相同，若“借款人”对应的“担保人”与“预留字段”中的“借款人”相同，符合上述条件的记录放在sheet3中，“借款人”与“担保人”既为相互担保的两个企业。(程序略)

　　(4)around2()：查找三个企业相互担保的情况。思路与两个企业相互担保基本相同。(程序略)

　　5.计算结果

　　计算出相互担保和循环担保的结果。结果是否存在依赖于数据录入的规范性和确实存在此类问题等因素。在本例程序中只取得了相互担保的结果，没有循环担保的情况。取得了结果表后，可要求被审计单位补充必要数据，进行分类汇总统计。

　　从这个案例可看出，开展计算机辅助审计不必拘泥于一套系统、一个软件，完全可以选用审计人员所熟悉的、熟练的软件和程序，通过数据共享来实现更好地分析和利用。