某房地产公司某年主要发生了如下几笔经济业务：

(1)该公司自建楼房2栋，建筑安装成本为600万元，成本利润率10%，房屋建成后，该公司对外销售1栋，取得销售收入2000万元。另外一栋对外出租，每年租金200万元。

(2)该公司承接的建筑工程两起。其中一起工程在境外，工程总造价3000万元；另一起在境内，工程总造价500万元。该公司将300万元的境内工程分包给B公司。

(3)该公司承接的通信线路工程一起，工程造价100万元(含动力费5万元)，另外支付电缆、光缆和管件费用20万元。 (4)委托某建筑公司承建某商场建筑工程业务，取得收入1000万元，同时支付给建筑公司工程款600万元。

要求：

计算该公司承建某商场建筑工程应缴纳的营业税。

以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。　　Sub RecArea(L，W)　　　Dim S As Double　　　S=L*W　　　MsgBox"Total Area is"& Str(S)　　End Sub　　Private Sub Command1_Click()　　　Dim M，N　　　M=InputBox("What is the L")　　　M=Val(M)　　　【】　　　　N=Val(N)　　　【】　　　End Sub