Определить примерные горизонтальные координаты светил по заданному времени (время местное) и экваториальных координатам. α=07ч 45м, δ=+ 28о, дата20 февраля, 22 ч 40 мин

   '     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)

Я подлежащее, мест.) привстал(сказуемое, гл.) и(с.) взглянул(сказуемое, гл.) в(пр) окно(обст., сущ): кто-то(подлежащее, мест.) вторично(обст., нар.) пробежал(сказуемое, гл) мимо(пр) него(доп., мест) и(с) скрылся(сказуемое, гл) неизвестно(обст, нар) куда(обст., нар), забежав за угол дома(обст., рыр. деепричастным оборотом)
Повест., невоскл. сложное с бессоюзной связью, состоит из двух частей. Первая часть - простое, повест, невоскл. распр., полное, двусост, осложнено однородными сказуемыми Вторая часть: простое, повеств., невоскл., распр., полное, двусост., осложнено однородными сказуемыми и обособленным деепричастным оборотом.
 
И нарисуй схему со всеми знаками препинания.