蒸发器的作用是什么？

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