Private Sub Form_Resize()
Randomize
Dim a(9) As Integer
For i = LBound(a) To UBound(a)
a(i) = Int(Rnd * 900 + 100)
Print a(i);
Next i
Print
For i = LBound(a) To (UBound(a) - LBound(a)) \ 2
t = a(i)
a(i) = a(UBound(a) - i)
a(UBound(a) - i) = t
Next i
For i = LBound(a) To UBound(a)
Print a(i);
Next i
End Sub
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/a044ad345982b2b74a0dcb9e3fadcbef77099bde?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)