III Determine el valor de las variables seg$$n se ejecutan las instrucciones de los siguientes subprogramas: $(20$ puntos $)$

X Y

Private Sub CommandButton$1()$

Dim X$,$Y as Double

X$=100$

Y$=200$

X$=$Y $*2$

Y$=$ X $100$

Listbox$1.$AddItem $$ X $=$ & X

ListBox$1.$AddItem $$Y $=$ & Y

End Sub