建设工程交易费计算器的编程-河南招标投标网.DOC

建设工程交易费计算器的编程 安阳市工程建设招投标服务中心　 张志红 [内容提要] 本文针对以往建设工程交易费计算繁琐、容易出错的缺点，采用Visual Basic6.0程序设计语言编制了建设工程交易费计算器，使交易费的计算实现了人机对话和可视化运算，提高了交易费计算过程中准确率和工作效率。 [关 键 词] 建设工程 交易 程序设计 一、概述 根据河南省物价部门对安阳市建设工程招投标交易费收费标准的批复，目前安阳市建设工程交易费的计算是以工程造价为基础，分为300万元以下，301-1000万元，1001-3000万元，3001-6000万元，6000万元以上五个范围段，对应不同的费率，采取累计相加的计算方法。在实际计算时，计算人员需要先确定工程造价范围，然后套用不同费率进行累加计算，再按照3∶7的比例分别计算出建设单位和施工单位支付的交易费用。以某建设工程中标价4235万元为例，需要支付的交易费为： 300×15+700×12+2000×8+1235×5＝34075元， 然后再分别计算建设单位和施工单位支付的交易费用。 34075×30%＝10522.5元， 34075×70%＝24552.5元 这种计算方法，要求计算人员熟记不同工程造价范围的费率，同时由于输入数据多，在计算时需要多次核对，稍不注意就容易出错。 为解决上述问题，笔者在实际工作中运用Visual Basic6.0程序设计语言编制了建设工程交易费计算器。该程序采取人机对话形式，计算快捷、准确，提高了工作效率；计算时只需一次输入工程造价，运算结果一目了然．避免了人为计算错误的发生。经实践验证，效果良好。 二、程序功能 该程序具有以下功能： 1、采用人机对话形式，任意输入工程造价即可计算出交易费，同时计算出建设单位和施工单位支付的交易费。 2、具有重复输入计算功能。 3、在没有输入工程造价或输入造价数值为零、负数时，按“计算”时，屏幕提示“输入错误，退出计算。” 4、计算结束按“结束”键，自动退出。 三、程序编制 1、设计程序界面 打开visual basic6.0。选择“文件”菜单上的“新建工程”选项，建立新工程。 在新建窗体中加入一个图片框控件，8个标签控件，4个文本控件及3个命令按钮，如图1所示的设计界面放置控件位置。 （图1） 2、设置对象属性 设置Form1的属性为建设工程交易费计算器”，Command1，Command1，Command1，的属性分别为“计算”、“重写”和“退出”，其他属性设置（如图2）所示。 控件名 属性名 设置属性值 Fram1 Caption “建设工程交易费计算器” Lable1 Caption “请输入工程造价” Lable2 Caption “万元” Lable3 Caption “工程交易费” Lable4 Caption “元” Lable5 Caption “建设单位支付” Lable6 Caption “元” Lable7 Caption “施工单位支付” Lable8 Caption “元” Text1 Text （删除原有内容） Text2 Text （删除原有内容） Text3 Text （删除原有内容） Text4 Text （删除原有内容） Command1 Caption “计算” Command2 Caption “重写” Command3 Caption “退出” （图2） 3、编写程序代码　　程序界面设计完成后，下面就该编写代码了。　　第一步：双击“计算”按钮，输入如下代码 Dim c As Single c = Val(Text1.Text) If c 0 And c = 300 Then Text2.Text = c * 15 Text3.Text = Text2.Text * 0.3 Text4.Text = Text2.Text * 0.7 ElseIf c 300 And c = 1000 Then Text2.Text = 300 * 15 + (c - 300) * 12 Text3.Text = Text2.Text * 0.3 Text4.Text = Text2.Text * 0.7 ElseIf c 1000 And c = 3000 Then Text2.Text = 300 * 15 + 700 * 12 + (c - 1000) * 8 Text3.Text = Text2.Text * 0.3 Text4.Text = Text2.Text * 0.7 ElseIf c 3000 And c = 6000 Then Text2.Text = 300 * 15 + 700 * 12 + 2000