修改VB程序,使其具有下列功能:单击“赋值”按钮,先清空窗体上的文本,再给含10个元素的一维整型数组随机赋值并在同一行显示在窗体上(随机范围是[100,1000]);单击“平均值”按钮, 将数组中前7个元素的平均值四舍五入到小数点后2位输出到文本框中。 程序设计、运行界面如下图所示。 Dim x%(1 To 10) Private Sub Command1_Click() Dim i% -(1)- Randomize For i = 1 To 10 x(i) = -(2)- -(3)- Next End Sub Private Sub Command2_Click() Dim s#, i% s = 0 -(4)- s = s + x(i) Next s = Int(-(5)-) / 100 Text1.Text = "前七位的平均值是:" & s End Sub