Доброго всем времени суток. Намечается быть экзамен, к нему выдали список практических которые приведены ниже. Если кому интересно и есть желание помочь можете по разбираться . С удовольствием посмотрю ответы. Ответы можете кидать на ящик
NordFox@rambler.ru С уважением ко всем.
Практические
1.. Оптимизировать программный код по скорости выполнения. Использовать методы объекта Recordset.
Dim НаборЗаписей As DAO.Recordset
Dim ЗначениеПоля As String
Dim Флаг As Boolean
• • •
Флаг = False
Set НаборЗаписей = CurrentDb.OpenRecordset ("Запрос!" )
Do Until НаборЗаписей.EOF
If НаборЗаписей! Фамилия = ЗначениеПоля Then Флаг — True
Exit Do
End If
НаборЗаписей.MoveNext
Loop
НаборЗаписей.Close
If Hot Флаг Then MsgBox "Такой фамилии в Базе данных нет!"
2. Добавить в функцию код обработки ошибок. В случае успешного перехода на
следующую или предыдущую запись функция возвращает значение True.
Function Функция (НаборЗаписей As DAO.Recordset, _
Направление As Integer) As Boolean
If Направление > О Then
НаборЗаписей.MoveNext Функция = True
Elself Направление < О Then
НаборЗаписей.MovePrevious Функция = True End If
End Function
3. Определить тело процедуры для записи во все строки набора записей, в выбранное поле, значения ноль. В качестве параметров процедура принимает объект набора записей и имя поля.
Сигнатура процедуры имеет вид
Sub Процедура (НаборЗаписей As DAO,Recordset, ИмяПоля As String)
4. Определить назначение функции. Сделать словесное описание алгоритма.
Function Функция {НаборЗаписей As DAO.Recordset) As Boolean
Dim Поле As DAO.Field
Dim i As Byte
For Each Поле In НаборЗаписей.Fields
For i = 1 To len (Поле)
If Not Mid (Поле, i, 1) Like "[а-я]" Then
Exit Function
Next
Next
Функция = True
End Function
5. Записать в модуле формы Microsoft Access процедуру обновления данных формы,
включив в нее код обработки ошибок.
6. Microsoft Word. Записать макрос, форматирующий шрифт первых букв предложений в тексте текущего документа. Формат шрифта - полужирный курсив, цвет - красный.
7. Microsoft Word. Записать функцию, возвращающую строку со значением самого длинного слова в тексте текущего документа.
8. В первой строке на активном листе текущей книги Microsoft Excel установить для ячеек, содержащих числовые данные, формат: цвет заливки - желтый, шрифт - синий, полужирный курсив.
9. Определить действие, выполняемое процедурой. Сделать словесное описание алгоритма.
Sub Процедура (Цвет As Byte)
Dim Ячейка As Range
Dim n As Long, m As Long
For Each Ячейка In Selection.Cells
n = WorksheetFunction.Countlf(Selection, Ячейка)
If n > m Then m = n next
For Each Ячейка In Selection.Cells
If Hot IsEmpty(Ячейка) And _
WorksheetFunction.Countlf (Selection, Ячейка) = m Then
Ячейка.Interior.Colorlndex = Цвет
Next
End Sub
10. Сократить количество циклических операторов в программном коде.
Dim i As Long, j As Byte
•••
With Range ("A1:D4")
For i = 1 To .Rows.Count
For j = 1 To .Columns.Count
If IsNumeric(.Cells(i, j)) Then
.Cells(i, j).Interior.ColorIndex = 6
Next
Next
For i - 1 To .Rows.Count
For j = 1 To .Columns.Count
If Not IsNumeric(.Cells(i, j)) Then .Cells(i, j).Interior.Colorlndex = 4
Next
Next
End With
11. Оптимизировать программный код по скорости выполнения и рациональности объема записи строк, используя методы объекта Range.
Dim i As Long, j As Byte
Dim v
• • •
With ActiveSheet.UsedRange.Columns("A")
For i = 1 To .Cells.Count - 1
For j = i + 1 To .Cells.Count
If .Cells(i) > .Cells(j) Then
v = .Cells(i) .Cells(i) = .Cells(j) .Cells(j} = v
End If
Next
Next
Do While IsEmpty(.Cells(1) )
.Cells(l).Delete Shift:=xlUp
Loop
End With
12. Определить функцию для подсчета пустых ячеек диапазона. В качестве параметра функция принимает ссылку на диапазон.
13. Переписать программный код с целью резервирования наименьшего объема оперативной памяти под массив. Назначение массива в коде - сохранение значений ячеек, с дробными числами на занятом диапазоне активного листа.
Dim Массив(99999)
Dim Ячейка As Range
Dim n As Long
...
n - 0
For Each Ячейка In ActiveSheet.UsedRange.Cells
If Not IsEmpty(Ячейка) And IsNumeric(Ячейка) Then
n = n + 1
Массив (n) = Ячейка ♦
End If Next
14. Определять строки программного кода, которые могут вызвать ошибки времени исполнения. Добавить в программу код обработки ошибок. Ячейки диапазона содержат значения любого типа.
Dim Ячейка As Range Dim S As Double
Dim k As Long
...
k = 0 s = 0 For Each Ячейка In ActiveSheet.UsedRange,Cells
S = S+ Ячейка
k = к + 1 Next
S = S / K
15. Записать на языке Visual Basic программный код для объявления переменных
Имя переменной Место Область Вид и тип хранимых данных определения видимости
КлючевоеПоле Модуль Модуль Строковый
Результат Модуль Проект Логический
ДлинаПути Процедура Процедура Длинное целое
Время Функция Фушщия Дата и время
Hour Процедура Процедура Динамический массив с элементами целого типа
16. Записать программный код функции, определяющей максимальный положительный элемент массива.
17. Составить на языке Visual Basic условие, позволяющее определить, является ли значение в переменной х буквой русского или латинского алфавитов.
19. Привести примеры программного кода, предназначенного для:
• объявления динамического массива;
• резервирования памяти под динамический массив;
• изменения размерности динамического массива с сохранением ранее присвоенных значений элементам.
20. Сократить программный код процедуры, используя специальные инструкции языка Visual Basic.
Private Sub Процедура (a () As Byte, k As Byte)
Dim b ( ) As Byte
Dim i AS Long, m As Long, n As Long
m= LBound (a )
n = UBound(a)
ReDim b(m To n)
For i = m To n b(i) = a(i) Next;
n = n - к
ReDim a (m To n)
For i = m To n a(i) = b(i) Next:
End Sub
21. Запрограммировать на языке Visual Basic процедуру для удаления нулевых элементов из числового динамического массива вещественного типа. Массив передается в процедуру в качестве параметра.
22. Записать программный код функции возвращающей среднее арифметическое положительных элементов одномерного динамического массива. Массив передается в функцию в качестве параметра.
23. Определить назначение подпрограммы-процедуры. Составить словесное описание алгоритма.
Option Explicit
Option Base 1
Dim fns(1OOOO) As String Dim k As Long
Private Sub Процедура(sf As Folders)
Dim cf As Folder
Dim fn As File
For Each cf In sf
If cf.SubFolders.Count Then Процедура cf.SubFolders
For Each fn In cf.Files k = k + 1 fns(k) = fn.Name Hext Next End SUB
