Завдання

вирішіть ці завдання, використовуючи конструкції if і умови.

1. ваша місячна вага

якби ви зараз були на місяці, ваш вага склала б 16,5 відсотків від земного. щоб дізнатися, скільки це, помножте свій земний вага на 0,165.

якби щороку протягом наступних 15 років ви додавали по одному кілограму ваги, яким би виявилася ваша місячний вага в кожен з щорічних візитів на місяць аж до 15-го року? напишіть програму, яка за циклу for друкує на екрані вашу місячну вагу в кожному році.

"Говорильный" аппарат,
Модный гаджет,связи рад.
Фото,видео снимает,
На звонки он отвечает.
                                ( Телефон)

К празднику, всегда "накрыт",
Полон явств и каждый сыт,
Я бюро и секретер,
Есть компьютерный размер.
                                 ( Стол)

Важных данных я хранитель,
Информации носитель,
Гибкая,так что же это?
Я магнитная ?(Дискета)

Я блокнот и память я,
Есть и электронная.
Записи я все веду,
Всё фиксирую и жду.
                         (Записная книжка)

Не пищу и не шуршу,
А с компьютером-дружу.
Я курсором управляю,
И командам
                        (Мышка)

Осенью,я всех встречаю.
Летом,просто отдыхаю.
Весь учебный год-учу,
Дарить знания хочу.
                          (Школа)

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