Выпишите последний полученный столбец (например, 10101 без пробелов)

        '     1)Напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b задаются пользователем).    
   
Dim a As Integer
Dim b As Integer 
Dim i As Integer   

a = InputBox("Введите а") 
b = InputBox("Введите b")
   
Dim msg As String     
msg = ""   
     
For i = a To b     
       msg = msg &  3 в степени " & i & " равно " & 3 ^ i & vbCrLf   
 Next   

MsgBox(msg)

2)Найти все делители числа 1204.   

Dim i As Integer       
Dim msg As String   
msg = ""     

For i = 1 To 1204 
          If 1204 Mod i = 0 Then     
                  msg = msg & "Число " & i & " является делителем 1204." & vbCrLf                  End If   
Next 
  MsgBox(msg)

{ Использован код горизонтальной табуляции
 09 для выравнивания вывода }
var
  a,b,h,x:real;
begin
  Write('введите a,b,h: '); Read(a,b,h);
  x:=a;
  while x<=b do begin
    Writeln(x,#09,#09,4*sin(x*x)+cos(x));
    x:=x+h
    end
end.

Пример
введите a,b,h: -2.15 1.7 0.38
-2.15        -4.53120848610505
-1.77        -0.163118638139122
-1.39        3.92156008975769
-1.01        3.9405021385098
-0.63        2.35427225489945
-0.25        1.21874969308017
0.13        1.05915867588807
0.51        1.90145326606337
0.89        3.47673114723651
1.27        4.29273595805526
1.65        1.54860630059752