某工程项目施工过程中，承包人运料车由于公共道路断路不能向工地运送材料，致使工期拖延5天，承包人就此向发包人提出工期索赔。其理由是发包人应承担外部协调不力责任。此种索赔属于( )。

A．总索赔
B．道义索赔
C．默示索赔
D．工程变更索赔

下面程序的作用是用InputBox函数输入一个整数，然后判断能否同时被2，5和7整除， 果能则输出该数及平方值。请填空。　　Private Sub Command1_Click()　　　Dim numX As Integer　　　numX = Val (InputBox("请输入一个整数"))　　　If【 】Then　　　　　Form1．Print【 】　　　End If　　End Sub