1. 编“求最大数最小数”程序，实现如下功能：在文本框Text1中输入一个正整数n，单击“分析”按钮Command1后，程序将生成n个随机整数，显示在列表框List1中；并计算这n个随机整数中的最大数、最小数及它们所在的位置，最后求出这n个数的平均值。程序运行界面如下图所示。

1. （1） 要使程序运行时，清空文本框Text1中的内容，可在Form_Load事件过程添加语句(单选，填字母：A .Text1.Caption ＝ “ ” / B .Text1.Text＝“ ” / C .Text1.Font＝“ ”)。
3. （2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。

   Private Sub Command1_Click()

       Dim n As Integer, i As Integer, x As Integer, sum As Integer, avg As Single

       Dim max As Integer, min As Integer, maxi As Integer, mini As Integer

       n ＝ Val(Text1.Text)

       x ＝ Int(Rnd * 100) ＋ 1

       List1.AddItem Str(x)

       max ＝ x : min ＝ x

       maxi ＝ 1: mini ＝ 1

       

       For i ＝ 2 To n

           x ＝ Int(Rnd * 100) ＋ 1

           List1.AddItem Str(x)

           If x > max Then max ＝ x: maxi ＝ i

           If  Then min ＝ x: mini ＝ i

           sum ＝ sum ＋ x

       Next i

      

       List2.AddItem “最大数为：” ＋ Str(max) ＋ “，所在位置为：” ＋ Str(maxi)

       List2.AddItem “最小数为：” ＋ Str(min) ＋ “，所在位置为：” ＋ Str(mini)

       List2.AddItem “平均值为：” ＋ Str(avg)

   End Sub