I suppose that *interactively* means *changing some parameters*. For this, you can simply use **Manipulate**,

    Manipulate[Column[{CompleteGraph[p], AdjacencyMatrix[CompleteGraph[p]]}], {p, 1, 50, 1}]