Задание 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
Заключение
Работая на практике я закрепил знания полученные на уроках. Я научился делать отчет по заданиям,улучшил навыки работы в VBA. Мне давалась легко работа в html и Excel. Небольшие затруднения возникли в задании 7, 8. Мне понравилась работа с тестом и формами. Мне не понравилась работа с вариантами. Мне следует доработать навыки владения VBA. Знания полученные на практике мне пригодиться в будущей профессии.
Список используемой литературы
Основная учебная
1. Слепцова Л. Д. Программирование на VBA в MicrosoftOffice 2010 [электронный ресурс] –М.:ООО “И. Д. Вильямс”,2010. – 432с.