有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。

A．12

B．30

C．24

D．18

钎探是根据（）来判断土的软硬情况及有无古井、古墓、洞穴、地下掩盖物等。

A.钎孔大小

B.用力大小

C.锤击次数

D.入土深度

E.入土难易程度