Результат выполненного задания №13
Задание 1.
Вывод на лист Excel
Программа
Sub x()
Dim A()
Dim x, y, b, c, min, max, n, nn, k, kk, l, l1, sum, sums, m, v As Integer
Sums = 0
m = 0
sum = 0
v = 0
l = InputBox("Введите первую часть массива")
l1 = InputBox("Введите вторую часть массива")
ReDim A(l, l1)
Randomize
For x = 1 To l1
For y = 1 To l
A(l, l1) = CInt(Rnd() * (96 + 6 + 1)) - 6
Sheets(3).Cells(x + 8, y + 2) = A(l, l1)
Sheets(3).Cells(x + 8, y + 2).Font.Color = RGB(112, 48, 160)
Sheets(3).Cells(x + 8, y + 2).Interior.Color = RGB(177, 160, 199)
Sheets(3).Cells(x + 8, y + 2).Font.Italic = True
If A(l, l1) > max Then
max = A(l, l1)
n = x
nn = y
End If
If A(l, l1) < min Then
min = A(l, l1)
k = x
kk = y
End If
Next y
Next x
MsgBox "Минимальое число: " & min
MsgBox "Максимальное число: " & max
For n = 1 To l
A(l, l1) = Sheets(3).Cells(n + 8, nn + 2)
sum = sum + A(l, l1)
Next n
For k = 1 To l1
A(l, l1) = Sheets(3).Cells(k + 8, kk + 2)
sums = sums + A(l, l1)
Next k
For nn = 1 To l
A(l, l1) = Sheets(3).Cells(n + 8, nn + 2)
m = m + A(l, l1)
Next nn
For kk = 1 To l1
A(l, l1) = Sheets(3).Cells(k + 8, kk + 2)
v = v + A(l, l1)
Next kk
MsgBox "Сумма строк с максимальным значением: " & sum
MsgBox "Сумма столбцов с максимальным значением: " & m
MsgBox "Сумма строк с минимальным значением: " & sums
MsgBox "Сумма столбцов с минимальным значением: " & v
End Sub
Задание 2.
Копия на листе 4 начиная с ячейки E4 и продолженая в строку и новый массив путем сложения 3-х рядом стоящих элементов.
Sub x()
Dim B()
Dim x, y, c, i, sum As Integer
Randomize
i = CInt(Rnd() * (96 - 6 + 1)) + 6
Sheets(1).Cells(3, 3) = i
MsgBox "Рандомное число = " & i
ReDim B(i)
Open "\\fileserver\студенты\И-16-1\Невидимов_ИЮ\Практика\задания\задание 8\1.txt" For Output As #1
Print #1, i & " " & i
For x = 1 To i
B(i) = CInt(Rnd() * (96 - 6 + 1)) + 6
Sheets(1).Cells(x + 2, 5) = B(i)
Sheets(4).Cells(4, x + 4) = B(i)
sum = sum + B(i)
Sheets(4).Cells(5, x + 4) = sum
Print #1, B(i) & " " & B(i)
If x >= 5 And x <= 21 Then
If B(i) > 0 Then
Sheets(1).Cells(x, 5) = " "
End If
End If
Next x
Close #1
End Sub
Sub ochistka()
Dim p As Integer
For p = 1 To 90
Range("C3:E100").ClearContents
Sheets(4).Cells(4, p + 4) = " "
Sheets(4).Cells(5, p + 4) = " "
Next p
End Sub
Практическое задание №14
Создать программно таблицу в html.
Описание выполнения задания:
Задание 1.
Создал программой 30 html, в которые записал таблицу.
Количество строк 5, количество столбцов 19.
В таблицу записать слово ячейка с № строки и № столбца .
Задание 2.
Создать программой 5 html, в которые записать таблицу.
Количество строк 22, количество столбцов 34.
В четных столбцах и строках ячейки бледно зеленый цвет.
В нечетных строках ячейках бледно синий цвет.
Задание выполнено.
Результат выполненного задания №14
Задание 1
Программный код
Sub x()
Dim a, b, c, i As Integer
For i = 1 To 30
Open "\\fileserver\студенты\И-16-1\Невидимов_ИЮ\Практика\задания\задание 18\" & i & ".html" For Output As #i
Print #i, "<html><table border=3><tr><td>Ячейка 1-1</td><td>Ячейка 1-2</td><td>Ячейка 1-3</td><td>Ячейка 1-4</td><td>Ячейка 1-5</td><td>Ячейка 1-6</td><td>Ячейка 1-7</td><td>Ячейка 1-8</td></tr><td>Ячейка 1-9</td><td>Ячейка 1-10</td><td>Ячейка 1-11</td><td>Ячейка 1-12</td><td>Ячейка 1-13</td><td>Ячейка 1-14</td><td>Ячейка 1-15</td><td>Ячейка 1-16</td><td>Ячейка 1-17</td><td>Ячейка 1-18</td><td>Ячейка 1-19</td></tr>"
Print #i, "<tr><td>Ячейка 2-1</td><td>Ячейка 2-2</td><td>Ячейка 2-3</td><td>Ячейка 2-4</td><td>Ячейка 2-5</td><td>Ячейка 2-6</td><td>Ячейка 2-7</td><td>Ячейка 2-8</td></tr><td>Ячейка 2-9</td><td>Ячейка 2-10</td><td>Ячейка 2-11</td><td>Ячейка 2-12</td><td>Ячейка 2-13</td><td>Ячейка 2-14</td><td>Ячейка 2-15</td><td>Ячейка 2-16</td><td>Ячейка 2-17</td><td>Ячейка 2-18</td><td>Ячейка 2-19</td></tr>"
Print #i, "<tr><td>Ячейка 3-1</td><td>Ячейка 3-2</td><td>Ячейка 3-3</td><td>Ячейка 3-4</td><td>Ячейка 3-5</td><td>Ячейка 3-6</td><td>Ячейка 3-7</td><td>Ячейка 3-8</td></tr><td>Ячейка 3-9</td><td>Ячейка 3-10</td><td>Ячейка 3-11</td><td>Ячейка 3-12</td><td>Ячейка 3-13</td><td>Ячейка 3-14</td><td>Ячейка 3-15</td><td>Ячейка 3-16</td><td>Ячейка 3-17</td><td>Ячейка 3-18</td><td>Ячейка 3-19</td></tr>"
Print #i, "<tr><td>Ячейка 4-1</td><td>Ячейка 4-2</td><td>Ячейка 4-3</td><td>Ячейка 4-4</td><td>Ячейка 4-5</td><td>Ячейка 4-6</td><td>Ячейка 4-7</td><td>Ячейка 4-8</td></tr><td>Ячейка 4-9</td><td>Ячейка 4-10</td><td>Ячейка 4-11</td><td>Ячейка 4-12</td><td>Ячейка 4-13</td><td>Ячейка 4-14</td><td>Ячейка 4-15</td><td>Ячейка 4-16</td><td>Ячейка 4-17</td><td>Ячейка 4-18</td><td>Ячейка 4-19</td></tr>"
Print #i, "<tr><td>Ячейка 5-1</td><td>Ячейка 5-2</td><td>Ячейка 5-3</td><td>Ячейка 5-4</td><td>Ячейка 5-5</td><td>Ячейка 5-6</td><td>Ячейка 5-7</td><td>Ячейка 5-8</td></tr><td>Ячейка 5-9</td><td>Ячейка 5-10</td><td>Ячейка 5-11</td><td>Ячейка 5-12</td><td>Ячейка 5-13</td><td>Ячейка 5-14</td><td>Ячейка 5-15</td><td>Ячейка 5-16</td><td>Ячейка 5-17</td><td>Ячейка 5-18</td><td>Ячейка 5-19</td></tr></table></html>"
Next i
For i = 1 To 30
Close #i
Next i
End Sub
Задание 2
Программный код
Sub z()
Dim a, b, c, i, x, y As Integer
For i = 1 To 5
Open "\\fileserver\студенты\И-16-1\Невидимов_ИЮ\Практика\задания\задание 18\2\" & i & ".html" For Output As #i
Print #i, "<html><table border=3>"
For x = 1 To 22
Print #i, "<tr>"
For y = 1 To 36
If x Mod 2 = 0 And y Mod 2 = 0 Then
Print #i, "<td width=30 height=30 bgcolor=#87CEEB></td>"
End If
If x Mod 2 = 1 And y Mod 2 = 1 Then
Print #i, "<td width=30 height=30 bgcolor=#9ACD32></td>"
End If
If x Mod 2 = 1 And y Mod 2 = 0 Then
Print #i, "<td width=30 height=30 bgcolor=#FFFFFF></td>"
End If
If x Mod 2 = 0 And y Mod 2 = 1 Then
Print #i, "<td width=30 height=30 bgcolor=#FFFFFF></td>"
End If
Next y
Next x
Print #i, "</tr></table></html>"
Next i
For i = 1 To 5
Close #i
Next i
End Sub