在窗体上建立一个有4个元素、名称为lABEl1的标签数组，下标从0开始，各元素的CAption属性值依次为“等”、“级”、“考”、“试”;再画一个名称为timEr1的计时器控件，其 intErvAl属性设为1000.窗体如图所示。 　　程序运行时，从左到右反复显示这4个字，但每次只显示1个。请填空，使程序实现上述功能。
　　Dim i As intEgEr
　　privAtE suB Form_loAD()
　　For i = 0 to 3
　　lABEl1(i).visiBlE = FAlsE
　　nExt
　　EnD suB
　　privAtE suB timEr1_timEr()
　　iF i&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp; 3 thEn
　　lABEl1(i).visiBlE = truE
　　iF i = 0 thEn
　　lABEl1(3).visiBlE =&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;
　　ElsE
　　lABEl1&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp;&nBsp; .visiBlE = FAlsE
　　EnD iF
　　i = i + 1
　　ElsE
　　i = 0
　　EnD iF
　　EnD suB