Logo GenDocs.ru

Поиск по сайту:  

Загрузка...

Лекции по VBA для гуманитарных специальностей - файл 6 Лекция.doc


Лекции по VBA для гуманитарных специальностей
скачать (2267.5 kb.)

Доступные файлы (7):

0лекции.doc2801kb.19.05.2011 23:01скачать
1 Лекция.doc87kb.19.05.2011 23:01скачать
2 Лекция.doc148kb.19.05.2011 23:01скачать
3 Лекция.doc84kb.19.05.2011 23:01скачать
4 Лекция.doc48kb.19.05.2011 23:01скачать
5 Лекция.doc54kb.19.05.2011 23:01скачать
6 Лекция.doc36kb.19.05.2011 23:01скачать

6 Лекция.doc




Лекция 6


3.4 Просмотр диапазона ячеек рабочего листа с помощью объекта Sheets (рабочие листы) и метода Range для доступа к ячейкам.
Пример. Написать программу для заполнения ячеек рабочего листа и вывести общую сумму.

Sub pr61()

Dim i, n, x, sum, str_x As String

n = Val(InputBox("введите n:"))

i = 1: sum = 0

For i = 1 To n

x = Int(Rnd * 100) + 1

str_x = str_x & x & " "

sum = sum + x

Sheets("лист 1").Cells(i, 3).Value = x

Sheets("лист 1").Cells(5, 4) = sum

Next i

End Sub

3.5 Заполнение элементов массива значениями рабочего листа.

Sub pr()

Dim i As Integer,mass(), str_mass 'переменная для элементов массива

ReDim mass(10)

For i = 1 To 10

Sheets("лист1").Cells(1, i).Value = Int(100 * Rnd + 1)

mass(i) = Sheets("лист1").Cells(1, i).Value

str_mass = str_mass & mass(i) & " " 'накопление элементов массива для ‘вывода заполненных значений

Next i

MsgBox str_mass

End Sub

(1,i) – первая цифра строка, вторая столбец.

Формат записи оператора определения функции:

FUNCTION имя [(параметры)] [STATIC]

[блок_операторов]

имя=выражение

[блок_операторов]

^ END FUNCTION

Где:

Имя - имя функции и возвращаемый ею тип данных, указанный с помощью ключевого слова As.

Параметры - одна или несколько переменных, указывающих параметры, которые передаются в функцию при ее вызове:

перемен[()] [AS тип] [, перем[()] [AS тип]].

Переменная - имя переменной VBA.

Тип - тип данных переменной (INTEGER, LONG, SINGLE, DOUBLE, STRUNG или тип данных, определенный пользователем).

STATIC - Указывает, что значения локальных переменных функции сохраняются между вызовами функции.

Выражение - Возвращаемое значение функции

При вызове функции вы можете указать, что значение аргумента не должно изменяться функцией. Для этого заключите аргумент в круглые скобки.

'Вычисление факториала рекурсия

Sub pфакториала()

Dim n, f

n = Val(InputBox("введите n:"))

f = fuc(n)

MsgBox "f=" & f

End Sub

Function fuc(t)

If t > 1 Then fuc = t * fuc(t - 1) Else fuc = 1

End Function

Процедуры-функции и процедуры

Кроме процедур обработки событий, определяющих событийный принцип работы Windows-приложений, важное место в языке Visual Basic 6.0 занима­ет общие процедуры. Под процедурами понимается часть программы, peaреализующая вспомогательный алгоритм и допускающая многократное обращение к ней из различных частей программы.

Процедуры помогают значительно упростить коды программ, в которых имеются повторяющиеся действия, возможно, с отличающимися параметрами. Это процедуры-функции Function. . .End Function, позволяющие возвращать определяемые в них значения функций, и процедуры Sub end sub, способные изменять значения нескольких переменных. Кроме Function и sub имеются процедуры Property, используемые для и чтения значений свойств.

Различают процедуры общего назначения на уровне проекта и закрытые процедуры. Процедуры на уровне проекта записываются в отдельных модулях, создаваемых командой главного меню Проект | Добавить модуль. Они доступны для всех процедур всех модулей проекта. Закрытые процедуры записываются в коде модуля (например, модуля формы) и доступны только для процедур своей формы. Процедуры на уровне проекта и закрытые процедуры по области действия можно сравнить с глобальными контейнерными переменными.

^ Процедуры Sub…End Sub

Синтаксис процедуры Sub.. .End Sub такой:

[Private I Public] [Static] Sub имя [(список)]

[операторы]

[Exit Sub]

[операторы]

End Sub

Слова Private, Public и static играют ту же роль, что и в процедуре-функции Параметр имя — глобальное имя процедуры, ограниченное длиной в 40 символов. Параметр список — список разделенных запятыми имен переменных передаваемых процедуре при ее вызове. В операторе предусмотрен альтернативный выход с помощью оператора Exit sub. В отличие от процедуры-функции Function имя процедуры sub не может быть использовано в выражениях. Процедуры могут быть рекурсивными, т. е. могут вызывать сами себя.

Вызов процедуры sub.. .End sub допускается двумя способами: с оператором Call и без него. Оператор call передает управление процедуре. Вызов имеет два вида синтаксиса.

Синтаксис 1:

Call имя процедуры [(список аргументов)]
Синтаксис 2:

имя процедуры [(список аргументов)]
Пример использования двумерного массива для создания таблицы умножения.

Sub p3()

Dim i, j As Integer

Dim a(1 To 10, 1 To 10), str_a

For i = 2 To 9

For j = 1 To 10

a(i, j) = i & "x" & j & "=" & (i * j)

str_a = str_a & " " & a(i, j) & " "

Next j, i

MsgBox str_a

End Sub

Пример обработки символьных переменных.

Sub p()

Dim AnyString, MyStr

AnyString = "13.05.2006" ' Define string.

MyStr = Right(AnyString, 4) ' Returns "Hello World".
MsgBox MyStr

End Sub


Скачать файл (2267.5 kb.)

Поиск по сайту:  

© gendocs.ru
При копировании укажите ссылку.
обратиться к администрации