VB定义一个大小为100的二维数组,编写三个过程,用随机函数给数组中所有元素赋值

Private Sub cs(a())
   For i = 1 To UBound(a, 1)
      For j = 1 To UBound(a, 2)
         Randomize
         a(i, j) = Int(Rnd * 100)
      Next j
   Next i
End Sub
Private Sub px(a())
   Dim b()
   ReDim b(1 To UBound(a, 1) * UBound(a, 2))
   Dim n As Integer
   For i = 1 To UBound(a, 1)
      For j = 1 To UBound(a, 2)
         n = n + 1
         b(n) = a(i, j)
      Next j
   Next i
   For i = 1 To UBound(b) - 1
      For j = i + 1 To UBound(b)
         If b(i) > b(j) Then c = b(i): b(i) = b(j): b(j) = c
      Next j
   Next i
   n = 0
   For i = 1 To UBound(a, 1)
      For j = 1 To UBound(a, 2)
         n = n + 1
         a(i, j) = b(n)
      Next j
   Next i
End Sub
Private Sub sc(a())
   For i = 1 To UBound(a, 1)
      For j = 1 To UBound(a, 2)
         Print a(i, j);
      Next j
      Print
   Next i
End Sub
Private Sub Command1_Click()
   Dim a(1 To 2, 1 To 50)
   Call cs(a)
   Call px(a)
   Call sc(a)
End Sub