执行如下程序段后，intsum的值为 【13】 。
Private Sub Command1_Click()
sum=0
For i=1 To 18 Step 2
For j=2 To 6
If(i Mod j)＜＞0 Then sum=sum+j
Next
Next
Print sum
End Sub

试分析干摩擦和有润滑剂条件下的摩擦、磨损现象。