填空题

下列事件过程的功能是：通过Foma_Load事件给数组赋初值为35、48、15、22、67， Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容，将程序补充完整。
Dim Arr()
Private Sub Form_Load()
______
End Sub
Private Sub Form_CUck()
For EaCh x In Arr
If Int(x/3)=x/3 Then
Pdnt X
End If
NeXt X
End Sub