vb的一个问题，求代码

提问：vb的一个问题，求代码

1．生成一个一维数组，由15个10~99之间的随机奇数组成，并在标签1中显示。单击命令按钮，将该数组中的数据按从大到小的顺序排列，并显示在标签2中。2．随机产生10个两位整数，求其中的最大值、最小值和平均值。

网友回答：

'窗体添加控件：Label1、Label1、Command1、Command2。参照代码如下：

Private Sub Command1_Click()
'随机获取15个二位数，显示正常排列、降序排列
   Dim buf(10 To 99) As String, s As String
   Dim i As Integer, j As Integer
   num = 15
   Randomize Timer
   Do
       j = Int(100 * Rnd)
       If j >= 10 Then
           s = s & j & " "
           buf(109 - j) = buf(109 - j) & j & " "
           i = i + 1
       End If
   Loop Until i = num
   Label1.Caption = s
   Label2.Caption = Join(buf, "")
   Exit Sub
End Sub
Private Sub Command2_Click()
'随机获取10个二个数，求最大值、最小值、平均值
   Dim s As String
   Dim i As Integer, j As Integer
   Dim x, y, z As Integer
   num = 10
   x = 0
   y = 100
   Randomize Timer
   Do
       j = Int(100 * Rnd)
       If j >= 10 Then
           s = s & j & " "
           If j > x Then x = j
           If j < y Then y = j
           z = z + j
           i = i + 1
       End If
   Loop Until i = num
   Label1.Caption = s
   Label2.Caption = "最大值:" & x & "   最小值:" & y & "   平均值:" & z / num
End Sub

窗体布局截图及运行截图