环境污染已成为当今世界关注的热点之一．下列各领域污染中主要由物理变化引起的（　　）

A．燃放烟花爆竹引起的空气污染

B．城市汽车鸣笛引起的噪音污染

C．大量使用农药、化肥造成的水污染

D．大量使用含氟致冷剂引起臭氧层空洞

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2＜＞0 Then
a=a+1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序执行后，单击命令按钮，输出结果是 【7】 。