问题 填空题

下列程序的功能是求出所有的1-100之间的孪生素数。孪生素数是指两个素数的差为 2,如3和5,11和13等,请填空。
Private Sub Form_Click()
Dim i As Integer
For i = 3 To 97 Step 2
If 【9】 Then
Print i, i + 2
End If
Next i
End Sub
Public Funtion Prime (ByVal n As Integer) As Boolean
Dim i as Integer
For i = 2 To n - 1
If 【10】 Then
Exit For
End If
Next i
If i = n Then
Prime = True
Else
Prime = False
End If
End Function

答案

参考答案:Prime(i)And Prime(i+2) n Mod i=0

解析: 此题Prime函数用来判断参数n是否为素数,如果是,则返回False,否则返回0,所以【10】处应填“n Mod i=0”。要找出100以内的所有孪生素数可采用以下方法:可用循环变量i从第一个素数3开始判断该数和它的下一个奇数(只有奇数才有可能是素数)是否同时为素数,如果是,则把该数和它的下一个奇数输出,然后循环变量加2,接着进行判断。此处判断某数是否为素数,可以通过调用函数Prime来实现,故【9】处应填写“Prime(i) And Prime(i +2)”。

问答题

某单位(甲方)与施工公司(乙方)签订了公路工程施工合同,合同签订后乙方将防水降水工程分包给某市政公司(丙方,下图中为Ⅰ子项工作),甲方与乙方共同确定了施工方案与进度计划(见下图)(合同中规定:窝工降效系数为50%)。

实际施工过程中,发生如下事件:

1.按进度计划K工作施工0.5个月后,业主方要求修改设计,K工作停工待图2.5月(混凝土工程),乙方向甲方提出索赔清单如下表所示。

某工程索赔清单表

内容

数量

费用计算

备注

 

新增工程量

 

300m3

 

300200=60000(元)

混凝土工程量单价200元/m3,

原计划工程量为600m3

 

机械闲置

 

60台班

 

60100=6000(元)

台班费100元/台班,自有设备

台班折旧费为60元

人工窝工

1800工日

180028=50400(元)

工日费28元/1日

机上人工费

60工日

5060=300(元)

机上人工费50元/工日

 

2.乙方自备施工机械未按时到达施工现场,致使H工作实际进度在12月底时拖延1个月,乙方要求合同工期顺延1个月,并补偿费用2万元。

3.F工作施工时,因项目经理部确定的施工工艺出现质量事故,监理工程师要求返工,工作实际进度在12月底时拖后1个月,乙方要求顺延合同工期1个月,补偿费用2万元。

4.施工第9个月,F工作在施工现场发现文物,为保护文物现场停工,乙方向甲方提出补偿工期1个月和费用1万元的要求。由于事件3和事件4的发生,F工作延误,致使钢架结构安装施工向后拖延,丙方就事件3和事件4分别向乙方提出索赔费用1万元,工期共顺延2个月的要求。

5.开工后第19个工作月出现台风,现场工作全部停止,为此乙方要求补偿因台风破坏施工现场的现场清理时间1个月,并补偿清理费用4万元。

问题

 

该工程实际工期为多少

多项选择题