Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

Удаление модулей проекта

ИмяПроекта.VBProject.VBComponents.Remove _

ИмяПроекта.VBProject.VBComponents.Item("ИмяМодуля")

Определение количества модулей в проекте

ИмяПроекта.VBProject.VBComponents.Count

Создание нового модуля проекта

‘Создаем новый модуль макросов и подпрограмм

ИмяПроекта.VBProject.VBComponents.Add vbext_ct_StdModule

‘Определяем индекс созданного модуля

k = ИмяПроекта.VBProject.VBComponents.Count

‘даем свое имя модулю

ИмяПроекта.VBProject.VBComponents.Item(k).Name = "Новое имя модуля"

Постановка задачи и ее решение

Вид объекта – Числовая прямоугольная матрица.
Параметры объекта – Размерности матрицы
Входные формы – Ввод элементов матрицы со столбцом (Клавиатура, Файл, Тест- формула), Выбор вида обработки.
Виды обработки – Построение диаграмм

1. Средние значения по строкам и столбцам

2. Максимальные значения по строкам и столбцам

3. Минимальные значения по строкам и столбцам

Option Explicit
Const m = 15
Dim i, j, k As Integer
Public Obr As Byte
Dim n, A(m, m), L(m) As Double
Public inp, NameF, Path As String
Dim Bukva As Variant
Dim det, s, x As Double
Public объявляет глобальную переменную. Объявлённая таким способом переменная становится доступной из всех модулей и форм проекта. Если переменная объявлена в разделе глобальных объявлений, то доступ к ней осуществляется просто по её имени. Если же она объявлена в коде формы, то доступ к ней из других форм и модулей осуществляется так: ИмяФормы.
ИмяПеременной.

Sub ButtonCancel_Click()

Sheet1.OptionButton1.Select

Cng_List (False)
End Sub
Sub объявляет процедуру с именем name и параметрами arglist.

Public Sub Obrabotka()
Obr = Sheet1.ListBox1.ListIndex + 1 n = Sheet2.Range("R2")
If Obr > 0 Then

Select Case Obr

Case 1 ' Среднее значение по строкам

Call rab1(n)

Рекомендуем скачать другие рефераты по теме: 5 баллов, чс реферат.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата