Dim a(100000) As SingleDim i As LongPrivate Sub Form_Load() Randomize i = 0End SubPrivate Sub Timer1_Timer() i = i + 1 a(i) = RndEnd SubPrivate Sub Command1_Click()Dim x As Singlex = a(2) + a(3)Print xEnd Sub