这个VB提怎么做????????????????????

Private Sub Command1_Click()
Dim A(19) As Variant
Dim MAX As Integer,MIN As Integer,T As Integer ,A As Integer
For I = 0 To 19
Randomize
A(I) = Int((100 - 49) * Rnd + 50)
MAX=IIF(A(I)>MAX,A(I),MAX)
MIN=IIF(A(I)<MIN,A(I),MIN)
T=T+A(I)
Next
MsgBox "最大值:" & MAX & vbCrLf & "最小值：" & MIN & vbCrLf & "平均值：" & T/20
End Sub

Private Sub Command1_Click()
Dim arry(19) As Variant
For i = 0 To 19
Randomize
arry(i) = Int((100 - 50 + 1) * Rnd + 50)
Next
Dim w1, w2 As Integer
Dim temp1 As Variant
For w1 = 0 To UBound(arry()) - 1
For w2 = w1 + 1 To UBound(arry())
If arry(w1) < arry(w2) Then
temp1 = arry(w1)
arry(w1) = arry(w2)
arry(w2) = temp1
End If
Next
Next
Dim s As Variant
s = 0
For k = 0 To 19
s = s