Подскажи чем Сможеш!! - VB

Формулировка задачи:

1- Дано целое число а. Если оно кратно четырем , то увеличить его в три раза, иначе возвести его в квадрат. 2-Даны два натуральных числа. Проверить , делится ли одно из них на другое без остатка или нет. Результат проверки сообщить (что на что делится). 3-Дано целое число а. Увеличить его в 4 раза , если оно четное, увеличить его на 3 , если оно кратно 5. 4-Даны три вещественных числа. Увеличить в 2 раза те из них , значение которых принадлежит интервалу (-5;5). ЕСЛИ поможите то буду очень БлаГоДарен!!!!!!!!

Решение задачи: «Подскажи чем Сможеш!!»

textual
                            Листинг программы 
                        

                            a1 = 666
a2 = 1.5
a3 = 5
 
a1 = IIf(a1 < 5 And a1 > -5, a1 * 2, a1)
a2 = IIf(a2 < 5 And a2 > -5, a2 * 2, a2)
a3 = IIf(a3 < 5 And a3 > -5, a3 * 2, a3)
                        