填空题 以下程序的功能是从随机产生的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* 1)+20
If a(i) Mod 3=0 2a(i) Mod 5=0 Then
If a(i)＞m Then m=a(i)
End If
Next
If 3 Then
Print"没有满足条件的数"
Else
Print"满足条件的数是"；m
End If
End Sub