以下程序的功能是从随机产生的20个20~200(含20和200)的整数中，找出能够同时被3和5整除的数的最大值，并显示出来。请填空。

Option Base 1

Private Sub Command1_Click( )

Dim a(20) As Integer

m =0

For i=1 To 20

a(i)=Int(Rnd * （）)+20

If a(i) Mod 3 = 0 （） a(i) Mod 5=0 Then

If a(i) >m Then m=a(i)

End If

Next

If （）Then

Print “没有满足条件的数”

Else

Print “满足条件的数是”;m

End If

End Sub

If a(i) Mod 3 = 0 （） a(i) Mod 5=0 Then

建筑消防系统有哪些？