阅读程序：
Function Fun( a As Integer)
Static c
b=0:b=b+2:c=c+2
F=a*b*c
End Function
Private Sub Commandl _ Click( )
Dim a As Integer
a=2
For i = 1 To 2
Print Fun (

A．;
Next
End

鉴别二氧化碳、氢气、氧气、空气四种气体，可以选用的最佳方法是 [ ]

A．将气体分别通入水中

B．将燃着的木条分别伸入气体中

C．分别将带火星的木条伸入气体中

D．将气体分别通入澄清石灰水中