Задание 4. Допишите комментарии к процедуре КнопкиДиалОко3

Допишите комментарии к процедуре КнопкиДиалОко3.

Условный оператор If…Then

Public Sub ОператорIf1()

'раздел описания переменных

Dim A As Double

Dim S As String

'исполняемая часть программы

'присваивание переменной А числового значения ячейки H1 рабочего листа 1

A = Worksheets(1).Range("H1").Value

If A > 0 Then

S = "положительное"

ElseIf A = 0 Then

S = "ноль"

Else

S = "отрицательное"

End If

' передача полученного в результате анализа значения переменной S в ячейку A1 рабочего листа 1

Worksheets(1).Range("A1").Value = S

End Sub

Public Sub ОператорIf2()

'раздел описания переменных

Dim A As String

Dim S As String

'исполняемая часть программы

'присваивание переменной А числового значения, вводимого через диалоговое окно

A = CDbl(InputBox("Введите A", "ОператорIf2", 40))

If A > 0 Then

S = "положительное"

ElseIf A = 0 Then

S = "ноль"

Else

S = "отрицательное"

End If

'передача полученного в результате анализа значения переменной S в ячейку A1 рабочего листа 1

Worksheets(1).Range("A1").Value = S

End Sub

Public Sub ОператорIf3()

'раздел описания переменных

Dim A As String

Dim S As String

'исполняемая часть программы

'присваивание переменной А числового значения из диалогового окна

A = CDbl(InputBox("Введите A", "ОператорIf3", 40))

'анализ введенного значения

If A > 0 Then

S = "положительное"

ElseIf A = 0 Then

S = "ноль"

Else

S = "отрицательное"

End If

'отображение полученного в результате анализа значения переменной S в диалоговом окне

MsgBox "Введенное число" & Chr(10) & S, 0 + 64, "ОператорIf3"

End Sub

Public Sub ОператорIf4()

'раздел описания переменных

Dim A As Double

Dim S As String

'исполняемая часть программы

'присваивание переменной А числового значения ячейки H1 рабочего листа 1

A = Worksheets(1).Range("H1").Value

If A >= 8 And A <= 20 Then

S = "день"

Else

S = "ночь"

End If

' передача полученного в результате анализа значения переменной S в ячейку A1 рабочего листа 1

Worksheets(1).Range("A1").Value = S

End Sub

Public Sub ВремяГодаIf5()

Dim ВремяГода As String

МесяцЦифрой = CByte(InputBox("Введите номер месяца", "ВремяГода", "3"))

If МесяцЦифрой >= 1 And МесяцЦифрой <= 12 Then

ВремяГода = Choose(МесяцЦифрой, "зима", "зима", "весна", "весна", _

"весна", "лето", "лето", "лето", "осень", "осень", "осень", "зима")

MsgBox "Время года -" & Chr(10) & ВремяГода, vblnformation, "Сезон"

Worksheets(1).Range("A4").Value = ВремяГода

End If

End Sub

Public Sub ОператорIf6()

'раздел описания переменных

Dim X As String

Dim Y As String

Dim Вывод As String

' исполняемая часть программы

' присваивание переменным X,Y числового значения из диалогового окна

X = CDbl(InputBox("Введите X", "ОператорIf6", 4))

Y = CDbl(InputBox("Введите Y", "ОператорIf6", 4))

' анализ введенных значени X,Y

If X <= 1 And X >= -1 And Y <= 1 And Y >= -1 Then

Вывод = "принадлежит"

Else

Вывод = "не принадлежит"

End If

'отображение полученного в результате анализа вывода в диалоговом окне

MsgBox "Точка с координатой (X,Y)" & Chr(10) & Вывод & Chr(10) _

& "заштрихованной плоскости", 0 + 64, "ОператорIf6"

End Sub

Public Sub ОператорIf7()

'раздел описания переменных

Dim X As String

Dim Вывод As String

Dim S As Double

' исполняемая часть программы

' присваивание переменным X числового значения из диалогового окна

X = CDbl(InputBox("Введите X", "ОператорIf7", 4))

S = X Mod 2

' анализ результата деления

If S = 0 Then

Вывод = "делится на 2"

Else

Вывод = "не делится на 2"

End If

'отображение полученного в результате анализа вывода в диалоговом окне

MsgBox "Число" & X & Chr(10) & Вывод, 0 + 64, "ОператорIf7"

S = X Mod 3

' анализ результата деления

If S = 0 Then

Вывод = "делится на 3"

Else

Вывод = "не делится на 3"

End If

'отображение полученного в результате анализа вывода в диалоговом окне

MsgBox "Число" & X & Chr(10) & Вывод, 0 + 64, "ОператорIf7"

S = X Mod 5

' анализ результата деления

If S = 0 Then

Вывод = "делится на 5"

Else

Вывод = "не делится на 5"

End If

'отображение полученного в результате анализа вывода в диалоговом окне

MsgBox "Число" & X & Chr(10) & Вывод, 0 + 64, "ОператорIf7"

End Sub

Public Sub ОператорIf8()

'раздел описания переменных

Dim N As Integer

Dim i As Integer

'исполняемая часть программы

M2:

Randomize

For i = 1 To 10

N = Int(6 * Rnd()) + 1

Worksheets(1).Range("K18").Value = N

If N >= 6 Then GoTo M1

Next i

M1:

K = MsgBox("Выиграли при броске i=" & CStr(i), 5 + 64, "Игра")

If K = 4 Then GoTo M2

If K = 2 Then GoTo Finish

Finish:

End Sub

Поиск по сайту: