用VB编程实现以下功能：生成20个200到300之间和随机整数，输出其中能被5整除的数，并求出它们的和。

Dim a(1 To 20) As Integer

Private Sub Command1_Click()
Print "20个随机数："
For n = 1 To 20
a(n) = Int((Rnd * 100) + 200)
Print a(n);
Next
Print
Print "能被五整除："
For n = 1 To 20
If a(n) Mod 5 = 0 Then Print a(n);: Sum = Sum + a(n)
Next
Print
Print "和为："
Print Sum
End Sub