1、必做题：在每道题正确无误后保存为结果文件（*.exe），以自己的姓名加学号后两位进行命名，然后提交作业）
请定义一个整型数组a,它的下标从1开始,有10个整数，这10个数是由随机函数生成。然后在窗体上单击时输出a数组中大于50的数组元素，若a数组中元素大于90，直接退出for循环，同时窗体上输出50以上数组元素的和。

代码提示：

2、附加题（选做题，请有能力的同学完成下面的任务）

使用VB设计程序，实现随机输出10个两位数，且求出它们的最大值和最小值及平均数。设计界面如下图所示。

附加题代码提示：

Private Sub Command1_Click()

Dim i%, max%, min%, p!, sum%

Dim a%(1 To 10)

Picture1.Cls

Randomize

For i = 1 To 10

   a(i) = Int(Rnd * 90 + 10)

   sum = sum +a(i)

   Picture1.Print a(i);

Next i

   max = a(1)

   min = a(1)

For i = 2 To 10

    If a(i) < max Then max = a(i)

    If a(i)>min Then min = a(i)

Next i

   p = sum / 10

   Text1.Text = max

   Text2.Text = min

   Text3.Text = p

End Sub

Private Sub Command2_Click()

  end

End Sub

1、for each‥‥‥ next语句的使用语法说明如下图所示