Билет 6.

Билет 1.

Sub Сумм_четн()

'

Макрос1 Макрос

Worksheet(1).Activate

P = 0

For i = 2 To 15 Step 2

P = P + i

Next i

Range(" E5") = " Сумма четных чисел: "

Range(" H5") = P

MsgBox (" Сумма четных чисел: " & P)

'

End Sub

Билет 2.

Sub Числа()

'

Макрос2 Макрос

Sheets(" Лист1").Select

Dim F As String

F = " A1 > B1"

If Range(" A1").Value > Range(" B1") Then Range(" C4") = F Else Range(" C4") = 0

'

End Sub

Билет 3.

Sub Макрос3()

'Макрос3 Макрос

Worksheets(1).Activate

P = 0

For i = 8 To 36 Step 2

P = P + 1

Next i

Range(" B9") = " Количество четных чисел: "

Range(" B10") = P

MsgBox (" Количество четных чисел: " & P)

'

End Sub

Билет 4.

Sub Произвед_чет()

' Макрос4 Макрос

'Worksheet(1).Activate

Dim f As Integer, PR As Double

PR = 1

For f = 6 To 15 Step 2

PR = PR * f

Next f

Range(" J4") = " Произведение четных чисел: "

Range(" J5") = PR

MsgBox (" Произведение четных чисел: " & PR)

'

End Sub

Билет 5.

Sub Произвед_чет2()

' Макрос5 Макрос

'Worksheet(1).Activate

Dim f As Integer, PR As Double

PR = 1

For f = 2 To 10 Step 2

PR = PR * f

Next f

Range(" J7") = " Произведение четных чисел: "

Range(" J8") = PR

MsgBox (" Произведение четных чисел: " & PR)

'

End Sub

Билет 6.

Sub Число()

' Макрос6 Макрос

'Sheets(" Лист1").Select

Dim f As String

f = " больше"

If Range(" A1").Value > 15 Then Range(" B1") = f Else Range(" B1") = 10

'

End Sub