End sub 3.阅读程序: Option Base 1 Private Sub Form Click o Dim a(3) As Integer Print"输入的数据是:"; For i=1 to 3 (i)= InputBox("输入数据") Print a(i) Print If a(1)<a(2)Then a(1)=a(2) a(2) If a (2)>a (3)Then ElseIf a(1)>a (3)Then End If Print"中间数是:";m End sub 程序运行后,单击窗体,在输入对话框中分别输入三个整数,程序将输出三个数中的中间数 4.在窗体上画一个名称为“ Command1”,标题为“计算”的命令按钮,再画7个标签,其 中5个标签组成名称为 Labe ll的控件数组;名称为 Label2的标签用于显示计算结果,其Ca ption属性的初始值为空;标签 Label3的标题为“计算结果”。运行程序时会自动生成5个 随机数,分别显示在标签控件数组的各个标签中,如图所示。单击“计算”按钮,则将标签 数组各元素的值累加,然后计算结果显示在 Label2。请填空 Private Sub Command1 Click For i=0 To 4 SumESum+ Nex End 5.在窗体上画一个名称为 Commandl的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1 ClickEnd Sub 3. 阅读程序： Option Base 1 Private Sub Form_Click() Dim a(3) As Integer Print "输入的数据是："; For i=1 To 3 a(i)=InputBox("输入数据") Print a(i); Next Print If a(1)<a(2) Then t=a(1) a(1)=a(2) a(2)=_______ End If If a(2)>a(3) Then m=a(2) ElseIf a(1)>a(3) Then m=________ Else m=________ End If Print "中间数是：";m End Sub 程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数， 4. 在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画 7 个标签，其 中 5 个标签组成名称为 Label1 的控件数组;名称为 Label2 的标签用于显示计算结果，其 Ca ption 属性的初始值为空;标签 Label3 的标题为“计算结果”。运行程序时会自动生成 5 个 随机数，分别显示在标签控件数组的各个标签中，如图所示。单击“计算”按钮，则将标签 数组各元素的值累加，然后计算结果显示在 Label2。请填空。 Private Sub Command1_Click() Sum = 0 For i=0 To 4 Sum=Sum+_________ Next ________=Sum End Sub 5. 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click()