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

为提高农民购买能力，加快农村消费升级，促进汽车摩托车产业结构优化升级，近日，国务院七部门发布《汽车摩托车下乡实施方案》。根据《实施方案》，2009年3月1日至12月31日，农民报废三轮车和低速货车并换购轻型载货车，以及购买1．3升以下排量的微型客车，给予一次性财政补贴。运用生产与消费的有关知识分析，国务院推出“汽车下乡”政策的经济学依据。