Private Sub Command1_Click()Dim a(6) As IntegerDim x As Integer, i As IntegerPrint f(2)For i = 1 To 5a(i) = f(i)Next iPrint a(1)Print a(4)End SubFunction f(x As Integer)x = x + 1f = xEnd Function