Разработка программ с использованием операторов циклов с условием

ЛАБОРАТОРНАЯ РАБОТА 5

РАЗРАБОТКА ПРОГРАММ

С ИСПОЛЬЗОВАНИЕМ  ОПЕРАТОРОВ ЦИКЛОВ С УСЛОВИЕМ

Задание 1

Public Sub Цвет_активной_ячейки()

Dim Цвет_фона As Integer

Dim Цвет_шрифта As Integer

Dim a As Long, Button As Long

Worksheets("Задание1").Select

Button = vbQuestion + vbYesNo

a = MsgBox("Привет, может покрасим ячейку?", Button, "Цвет активной ячейки")

Do While a = vbYes

Цвет_фона = (InputBox("Введите код цвета фона"))

ActiveCell.Interior.ColorIndex = Цвет_фона

Цвет_шрифта = (InputBox("Введите код цвета шрифта"))

ActiveCell.Font.ColorIndex = Цвет_шрифта

a = MsgBox("Продолжим?", Button, "Цвет активной ячейки")

Loop

End Sub

[pic 1][pic 2] [pic 3][pic 4]

[pic 5]

Задание 2

Public Sub Цвет_диапазона()

Dim n As Integer

Dim a As Long, Button As Long

Worksheets("Задание2").Range("B2:E14").Name = "Цвет"

Button = vbQuestion + vbYesNo

a = MsgBox("Привет, может покрасим диапазон?", Button, "Цвет диапазона")

Do While a = vbYes

n = (InputBox("Введите код цвета"))

[Цвет].Interior.ColorIndex = n

a = MsgBox("Продолжим?", Button, "Цвет диапазона")

Loop

End Sub

[pic 6][pic 7][pic 8] 

[pic 9]

Задание 3.

Public Sub Проверка_пароля()

Dim Пароль As String

Worksheets("Задание3").Select

Пароль = InputBox("Введите Пароль")

If Пароль = "Привет" Then MsgBox "Это правильный пароль": Exit Sub

Do

Пароль = InputBox("Пароль неверен," & Chr(13) & "введите Пароль")

Loop Until Пароль = "Привет"

MsgBox "Это правильный пароль"

End Sub

[pic 10][pic 11] [pic 12][pic 13]

Задание 4

Public Sub Ввод_и_обработка_произвольных_чисел()

Dim K_н_ч As Single

Dim I As Integer

Dim число As Single, С_о_ч As Single