Цикл for будет повторяться 6 раз, значит программа на выходе выдаст 72
В VBasic создаете командную кнопку и копируете из файла программу кроме первой и последней строк
Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn((A div 100)+(A mod 10))
End.