在窗体上画一个标签（名称为Label1)和一个计时器（名称为Timer1)，然后编写如下几个事件过程：

以下程序的功能是：把当前目录下的顺序文件smtextl.txt的内容读入内存，并在文本框Texd中显示出来。请填空。 Pfivme Sub Commandl_Click( ) Dim inData As String Textl.Text ="" Open"．\smtextl.txt"【 】As1 Do While【 】 Input1，in Data Text1.Text=Text1.Text&inData Loop Close1 End Sub

请帮忙给出正确答案和分析，谢谢！

设有程序： Option Base 1 Pfivme Sub Command1_Click( ) Dim arr1，Max as Integer arr1=Array(12，435，76，24，78，54，866，43) 【 】=arr1(1) For i=1 To 8 If arr1(i)＞MaxThen【 】 Next i Print"最大值是："；Max End Sub 以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

请帮忙给出正确答案和分析，谢谢！

以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。 Private Sub Command1_Click( ) For i=1 To 20 x=Int(【 】*100+200) If【 】=0 Then Print x S=S+【 】 End lf Next i Print"Sum="；S End Sub

请帮忙给出正确答案和分析，谢谢！

设有如下程序 Private Sub Search(a( )As Variant，ByVa1 key As Variant，index%) Dim I% For I=LBound(A)To UBound(a) If key=a(1) Then index=I Exit Sub End If Next I index=I End Sub Private Sub Form_Load( ) Show Dim b( ) As Variant Dim n As Integer b = Array(1,3,5,7,9,11,13,15) Call Search(b, 11 ,n) Print n End Sub程序动行后,输出结果是【 】。

请帮忙给出正确答案和分析，谢谢！