下面程序是用冒泡法将数组a中的10个整数按升序排列，请将程序补充完整。
Private Sub Command1_Click( )
Dim a, Tmp As Integer
a = Array (678,45,324,528,439,387,87,875,273,823)
For i = 【12】
Forj =0 To 9
Ifa (i)＜a(j) Then
Tmp = a(i): a(i) = a(j) i a(j) = Tmp
End If
Next j,i
For i = 0 To 9
Print a(i)
Next
End Sub

近年来，我国多次发生瓦斯爆炸事件，瓦斯已成为导致煤矿恶性事故的“头号杀手”．2008年5月17日，我市某煤矿的矿井因煤层自燃引发瓦斯爆炸，造成8人下落不明o

（1）瓦斯的主要成分是甲烷，请写出瓦斯爆炸的化学方程式______．

（2）列举一条煤矿安全生产的具体措施______．

（3）当发生瓦斯爆炸时，下列自救措施不恰当的是______（填字母代号）．

A．站在原地不动

B．背对爆炸地点迅速卧倒

C．选择合适通道迅速逃生

（4）上述事例告诫我们，在使用可燃性气体时，要特别注意安全．点燃可燃性气体前，一定要______．