Результат выполненного задания №7
Задание 1
Программа
Sub z()
Dim A(108)
Dim y(108)
Dim x, i As Integer
Randomize
For i = 1 To 108
A(i) = (Rnd() * (7 + 21 + 1)) - 21
Sheets(3).Cells(i + 5, 3) = A(i)
Sheets(3).Cells(i + 5, 3).Font.Bold = True
Sheets(3).Cells(i + 5, 3).Font.Color = RGB(112, 48, 160)
Sheets(3).Cells(i + 5, 3).Interior.Color = RGB(177, 160, 199)
y(i) = Result(CInt(A(i)))
Sheets(3).Cells(i + 5, 4) = y(i)
Sheets(3).Cells(i + 5, 4).Font.Bold = True
Sheets(3).Cells(i + 5, 4).Font.Color = RGB(112, 48, 160)
Sheets(3).Cells(i + 5, 4).Interior.Color = RGB(177, 160, 199)
Next i
End Sub
Function Result(i) As Integer
Const k = 25
Result = i ^ 3 - 5 * ((i ^ 2 + 1) + (5 * k + 3 * i))
End Function
Макрос диаграммы
Sub Макрос1()
'
' Макрос1 Макрос
'
'
Range("D6:D113").Select
ActiveWindow.SmallScroll Down:=-93
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range("Лист3!$D$6:$D$113")
ActiveChart.ClearToMatchStyle
ActiveChart.ChartStyle = 5
ActiveChart.ClearToMatchStyle
End Sub
Задание 2
Программа
Sub z()
Dim x, i, z As Integer
x = 0
i = 1
Do While x <> 100
1:
z = InputBox("Введите число <30")
If z <= 30 Then
Sheets(8).Cells(7, i + 5) = z
Sheets(8).Cells(7, i + 5).Font.Color = RGB(112, 48, 160)
Sheets(8).Cells(7, i + 5).Font.Bold = True
x = x + z
i = i + 1
MsgBox ("До 100 осталось " & 100 - x)
Else
MsgBox ("Вы ввели число >30")
GoTo 1
End If
Loop
End Sub
Запись диаграммы
Sub Макрос1()
'
' Макрос1 Макрос
'
'
Range("F7:J7").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xl3DPieExploded
ActiveChart.SetSourceData Source:=Range("Лист8!$F$7:$J$7")
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabels
ActiveChart.ChartArea.Select
Range("L12").Select
End Sub
Задание 3
Программа
Option Base 1
Sub z()
Dim A(128)
Dim x, y, i, b, c, d, z, sum As Integer
Randomize
b = 0
c = 0
d = 0
sum = 0
For x = 1 To 128
A(x) = (Rnd() * (108 + 138 + 1)) - 138
Sheets(2).Cells(x + 5, 3) = A(x)
Sheets(2).Cells(x + 5, 3).Font.Color = RGB(112, 48, 160)
Sheets(2).Cells(x + 5, 3).Font.Bold = True
Sheets(2).Cells(x + 5, 3).Interior.Color = RGB(177, 160, 199)
If A(x) = 0 Then
b = b + 1
End If
If A(x) < 0 Then
c = c + 1
Else
d = d + 1
End If
Next x
For x = 1 To 128 Step 2
A(x) = Sheets(2).Cells(x + 5, 3)
sum = sum + A(x)
Next x
MsgBox "Количество нулей = " & b
MsgBox "Количество отрицательных чисел = " & c
MsgBox "Количество положительных чисел = " & d
MsgBox "Сумма элементов стоящих на нечетных местах = " & sum
End Sub
Задание 4
Программа
Sub z()
Dim A(21, 27)
Dim x, y, i, a1, a2 As Integer
Randomize
For x = 1 To 21
For y = 1 To 27
A(x, y) = (Rnd() * (108 + 138 + 1)) - 138
Sheets(2).Cells(x + 5, y + 2) = A(x, y)
Sheets(3).Cells(x + 4, y + 2) = A(x, y)
Sheets(4).Cells(x + 6, y + 2) = A(x, y)
Next y
Next x
For x = 1 To 21
For y = 1 To 27
a1 = Sheets(3).Cells(x + 4, y + 2)
a2 = a2 + a1
Sheets(3).Cells(5, y + 2) = a2
Next y
Next x
End Sub
Задание 5
Программа.
Sub z()
Dim A(40)
Dim s, b, c, x As Integer
Randomize
For s = 1 To 40
A(s) = (Rnd() * (30 + 40 + 1)) - 40
Sheets(1).Cells(s + 1, 2) = A(s)
Next s
For x = 1 To 3
b = Sheets(1).Cells(x + 1, 2)
c = Sheets(1).Cells(x + 38, 2)
Sheets(1).Cells(x + 38, 2) = b
Sheets(1).Cells(x + 1, 2) = c
Next x
End Sub