Теоретические и практические основы работы с компьютером
Контрольная работа - Компьютеры, программирование
Другие контрольные работы по предмету Компьютеры, программирование
eCells = FalseWith.Merge.FormulaR1C1 = "Проводка"("A1:G4").Select.Borders(xlDiagonalDown).LineStyle = xlNone.Borders(xlDiagonalUp).LineStyle = xlNoneSelection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThinWithSelection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThinWithSelection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThinWithSelection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThinWithSelection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThinWithSelection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThinWith("D13").Select"C:\Users\dns\Documents\4 блок".SaveAs Filename:="C:\Users\dns\Documents\Книга1.xlsm", _:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Sub
.2.3 Переходы страниц. Переход на следующую страницу
Sub Переход_страниц()
Переход_страниц Макрос
Макрос записан 21.06.2012 Антон
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:="".Find.ClearFormattingSelection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = FalseWith.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:="".GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:="".GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:="".Find.ClearFormatting.Find.Replacement.ClearFormattingSelection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = FalseWith.Find.ClearFormattingSelection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = FalseWith.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:="".GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:="".Find.ClearFormattingSelection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = FalseWith.ActivePane.VerticalPercentScrolled = 57.Find.ClearFormattingSelection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End WithSub
Переход страницы назад:
Переход_страниц_назад Макрос
Макрос записан 20.06.2012 Антон.GoTo What:=wdGoToPage, Which:=wdGoToPrevious, Count:=1, Name:="".Find.ClearFormattingSelection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = FalseWithSub
.2.4 Проба
Sub ПРОБА()
ПРОБА1 Макрос
Макрос записан 20.06.2012 Антон
Сочетание клавиш: Ctrl+q
Range("A1").Select.Copy("C1").Select.Paste("C1").Select.Copy("E1").Select.PasteSub
.2.5 Овал
Private Sub CommandButton1_Click() Макрос2
Макрос2 Макрос
ActiveDocument.Shapes.AddShape(msoShapeOval, 138.4, 135.6, 245.9, _
120.6).Select.ShapeRange.Fill.Solid.ShapeRange.Fill.ForeColor.ObjectThemeColor = _.ShapeRange.Fill.ForeColor.TintAndShade = 0#.ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 255).ShapeRange.Fill.Visible = msoTrue.ShapeRange.Line.ForeColor.ObjectThemeColor = _.ShapeRange.Line.ForeColor.TintAndShade = -0.05.ShapeRange.Line.Weight = 3#.ShapeRange.Line.Style = msoLineSingle.ShapeRange.Line.Visible = msoTrue.ShapeRange.Shadow.Type = msoShadow3.ShapeRange.Shadow.ForeColor.ObjectThemeColor = _.ShapeRange.Shadow.ForeColor.TintAndShade = -0.5.ShapeRange.Shadow.Transparency = 0.5.ShapeRange.Shadow.OffsetX = 1#.ShapeRange.Shadow.OffsetY = 2#.ShapeRange.Shadow.Visible = msoTrue.ShapeRange.ThreeD.Visible = msoFalse.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 0).ShapeRange.Fill.Visible = msoTrue.ShapeRange.Fill.SolidSub
2.2.6 VBA Hello
Sub MY()"VBA HELLO@"
End Sub
2.2.7 Вычисление радиуса
Sub Радиус()
Радиус Макрос
Макрос создан 20.06.2012 Антон.ShowSub
Объявляем переменные радиуса и длины окружности
Dim Radius As IntegerLenght As Integer
Объявление постоянного числа PiPi = 3.14159Sub cmdCalc_Click()
Считывание чисел в окне ввода
Radius = txtRadius.Text
Считаем…
Lenght = 2 * Radius * Pi
Полученный результат выводим на Label.Caption = LenghtSub
2.2.8 Информация о свободной памяти
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Type MEMORYSTATUSAs LongAs LongAs LongAs LongAs LongAs LongAs LongAs LongTypeSub UserForm_Initialize()w1 As MEMORYSTATUSq1 As Singleq2 As Singled2 As Stringe As Integer.dwLength = Len(w1)w1= w1.dwMemoryLoad= w1.dwTotalPhys
d2 = (q2 - q1 * 0.01 * q2) / 1024 ^ 2= Int(d2 * 10) / 10= d2 & " Mb"= MsgBox("Свободно: " & d2, vbOKOnly + vbInformation, "Информация о RAM")
If e = 1 ThenIf
End Sub
Заключение
В заключение хочу сделать краткий вывод о вышеизложенном: программное обеспечение - это совокупность программ, позволяющих осуществить на компьютере автоматизированную обработку информации. Программное обеспечение делится на системное (общее) и прикладное (специальное).
Системное программное обеспечение обеспечивает функционирование и обслуживание компьютера, а также автоматизацию процесса создания новых программ. К системному программному обеспечению относятся: операционные системы и их пользовательский интерфейс; инструментальные программные средства; системы технического обслуживания.
Список литературы
1. Акулов О.А. Информатика: учебник / О.А. Акулов, Н.В. Медведев. - М.: Омега-П, 2007. - 270 с.
. Алексеев А.П. Информатика 2007 / А.П. Алексеев. - М.: СОЛОН-ПРЕСС, 2007. - 608 с.
. Вьюхин В.В. Информатика и вычислительная техника: учеб. пособие для инженерных специальностей / В.В. Вьюхин; под ред. В.Н. Ларионова. - М.: Дрофа, 2002. - 286 с.
. Гейн А.Г. Основы информатики и вычислительной техники / А.Г. Гейн. - М.: Просвещение, 2002. - 245 с.
. Информатика: практикум по технологии работы на компьютере / под ред. Н.В. Макаровой. - 2-е изд. - М.: Финансы и статистика, 2006. - 384 с.
. Макарова Н.В. Информатика: практикум по технологии работы на компьютере / Н.В. Макарова, С.Н. Рамин. - М.: Академия, 2007. - 384 с.
. Л.Л. Босова, Н.И. Михайлова. - М.: Б