下列变化中，都属于化学变化的一组是( )。

A．动植物呼吸；水受热沸腾

B．汽油挥发；土壤酸化

C．食物腐败；煤气燃烧

D．瓷碗破碎；岩石风化

执行如下程序段后，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