1)private sub command1_click() x=10:y=0 for i=1 to 5 do x=x-