Private Sub Command1_Click()Dim i As Long, j(50) As Long, Max As Long, Min As Long Max = 99 Min = 1001 For i = 1 To 50 Randomize j(i) = Int((1000 - 100 + 1) * Rnd + 100)If j(i) > Max Then Max = j(i)If j(i) < Min Then Min = j(i)Next Print ...