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

IV$.$ Programe lo siguiente: $(10$ ptos$)$

Siga los siguientes pasos para calcular el porcentaje de ganancias $dela{?}_{(}{)}_{?}$ venta de una acci$$n$($Stock$)$

a$.$ Declare la variahles a utilizar tipo "double".

b$.$ Asigne el valor de $100$ a la variable "purchasePrice".

c$.$ Asigne el valor de $150$ a la variable "sellingprice"

d$.$ Asigne a la variable "percentProfit", $100$ veces el valor de la diferencia entre "sellingprice" y "purchasePrice" dividido por "purchasePrice".

e$.$ De salida al valor de "percentprofit" a trav$$s de Listbox $1.$

b$.$Determine la Salida del siomiente programa: $(10$ puntos$)$

Dim $m,n$ as integer

$Dim{s}_{{?}_{?}}t$ as string

$m=5n=2$

$s=$ "BARBANEGRA"

$t-=$ "ANE"

listbox$1.$additem len$($s$)$

listbox$1.$additem right$($s$,$m$)$

listbox$1.$additem left$($s$,5)$

listbox$1.$additem instr$($s$,$t$)$

listbox$1.$additem mid$($s$,4n_{{?}_{?}})$