Задание 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
Практическое задание №8
Выполнить вариант №17.
Описание выполнения задания:
1. Задание 1.
2. Создал таблицу "Спортивные результаты метании копья май 2003", которые проходили Вторник и Пятница.
3. Дальность полета копья: - случайное число от 20 до 60 с точностью 2 знаков - созданные значения на Лист1 Excel. Спортсменов 3.
4. Создал таблицу лист3 Еxcel записал в строку начиная с ячейки O3.
5. Определил наименьший результат 3-го спортсмена в 1-й и в последней декаде.
6. Вывел результат с пояснениями лист2 ячейка Q3
7. Листы создаются программой. На основании строки построил график макросом на отдельном листе диаграмм
8. Задание 2.
9. Построилтаблицу программно занес рандомные значения цемента гипса и раствора.
10. Определил количество добавляемого цемента в раствор.
11. Определил вес добавленного гипса, когда раствор имеет вес от 1000 до 2000
12. На лист10 Excel начиная с ячейки Q3 и продолжить в столбец. Текст красный и курсив. По табличным данным через макрос построил график диаграмму на отдельном листе диаграмм.
13. Задание 3.
14. Создал случайное целое число, в интервале от 5 до 67, которое вывел в сообщение и на лист1 Excel.
15. Создал массив число элементов = случайному числу.
16. Индекс и значения элементов записал в текстовый файл в одной строке по два числа, а также сделал копию на лист 4начиная с ячейки Q3 и продолжил в столбец.
17. Удалил положительные элементы в интервале[5,21].
18. Создал новый масив путем сложения 3-х рядом стоящих элементов.
19. Задание 4.
20. Создал массив целых чисел (n=67), заполненный случайным образом числами из промежутка [-5,67].
21. Переставил местами минимальное и максимальное значение, вывел исходный и полученный массивы на лист3 Еxcel.
22. Записал в строку начиная с ячейки O3 текст красный и курсив, фон ячейки бледно красный.
23. Задание 5.
24. Создал двухмерный массив рациональных чисел из промежутка [-5,67].
25. Рамерность массива вводится сообщениями.
26. Массив вывел на лист3 Еxcel записал в строку начиная с ячейки O3.
27. Нашёл минимальный и максимальный элементы.
28. Вывел сумму столбцов с минимальным и максимальным элементами.
29. Вывел сумму строк с минимальным и максимальным элементами
30. Текст красный и курсив, фон ячейки бледно красный.
31. Задание выполнено.