VB程序设计，用随机函数产生10个50以内（包括50）的随机整数存入一维数组。求出最大值并和数组中的首个

vb编程题，用随机函数产生10个50以内包括50的随机整数存入一堆数组？~

Private Sub Command1_Click()
Dim a(10) As Integer
Randomize
Print "产生的随机数是："
For i = 1 To 10
a(i) = Int(Rnd * 51)
Print a(i);
Next i
Print
x = CInt(InputBox("请输入要查找的数："))
Print "要查找的数是："; x
n = 0
For i = 1 To 10
If x = a(i) Then n = n + 1
Next i
Print "出现了"; n; "次"
Print: Print
End Sub

Private Sub Command1_Click()
Randomize
Dim a(10) As Integer, imas as integer, imin as integer, Average as integer
imax = 49
imin = 101
Average=0
For i = 0 To 9
a(i) = Int(Rnd * 51) + 50
Average=Average+a(i)
If imax < a(i) Then imax = a(i)
If imin > a(i) Then imin = a(i)
Print a(i),
Next
Print
Print "最大值和最小值和平均值是："; imax; imin; Average / 10
End Sub
楼上的平均值计算是错误的，并且循环多了一次

Private Sub Command1_Click()

  Randomize

  Dim a(9) As Integer, Max As Integer

  Dim k As Integer, i As Integer

  Dim t As Integer

  Max = 0

  For i = 0 To 9

    a(i) = Int(Rnd * 51)

    Print a(i);

    If a(i) > Max Then

      Max = a(i)

      k = i

    End If

  Next i

  Print

  If k > 0 Then

    t = a(0)

    a(0) = a(k)

    a(k) = t

  End If

  For i = 0 To 9

    Print a(i);

  Next i

  Print

  Print

End Sub

不需要控件，程序如下：
Private Sub Form_Click()
Dim A(10) As Integer
Dim I As Integer
Dim K As Integer
Dim J As Integer
Dim T As Integer
Cls
Randomize
Print "自动生成的原始数组是："
K=1
For I=1 To 10
A(I) =Int(Rnd()*50+1)
Print A(I) ;
If A(I) >A(K) Then K=I
Next
T=A(0)
A(0) =A(K)
A(K) =T
Print
Print "交换以后的数组是："
For I=1 To 10
Print A(I) ;
Next
Print
End Sub
有什么问题请留言。

根据已有的程序行，缺的内容主要就是一个排序过程。添加一个排序的过程就行了。但是不知道该添在哪里，请说明程序的空白处是在哪里？能不能标出来，比如用括号，星号什么的，标一下需要补充到哪里？
或者，能不能说明一下，各文本框，按钮的功能是什么？ d = Val(Text3.Text)，这个应该是要插入的数据了，说明text3是用来输入的，Text2.Text = Text2.Text & Str(a(i))，这说明text2是显示排序后的结果的，
那有没有text1？用作什么？两个按钮定义的功能是什么？插入的数据怎么插？是随机插入一个位置，并替换掉原来的数据还是将数组重新定义随机插入后，后面的数向后移？
这些需要说明一下，或者把需要填写的位置标清楚，不然，不好确定该怎么填。

---

VB程序设计，用随机函数产生10个50以内（包括50）的随机整数存入一维数组。求出最大值并和数组中的首个视频