Private Sub Command1_Click()ClsDim mArr%(1 To 20),Max%,Min%,sum%,i%Max = 50Min = 100For i = 1 To 20RandomizemArr(i) = Int(Rnd * 51 + 50)If mArr(i) > Max Then Max = mArr(i)If mArr(8) < Min Then Min = m...