Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые проекты » Розробка додатків на мові VBA в середовищі MS EXCEL з обробки даних для заданих об'єктів

Реферат Розробка додатків на мові VBA в середовищі MS EXCEL з обробки даних для заданих об'єктів





p>

Sheet2.Visible = xlSheetVisible

Sheet2.Activate

Sheet2.Range ("L2") = Str (n) + "*" + Str (n)

Sheet2.Range ("R2") = n

InitS

Sheet2.Range ("H3") = "Введіть елементи матриці , починаючи з активної осередку A4 "

Else

If inp <> "" Then

MsgBox "Помилка введення розмірності "- - Виводить на екран вікно повідомлення (Message Box) яке буде чекати кліка на одній з кнопок. Повертає число Integer, за яким можна визначити яку кнопку натиснув користувач.

В 

GoTo Met1- оператор для переходу на певну мітку

End If

End If

End If

If Sheet1.OptionButton2.Value = True Then

'Введення матриці з файлу

Open "C: file1" For Input As # 2 - відкриває файл для читання, запису або для довільного доступу.

Input # 2, n

Sheet3.Visible = xlSheetVisible

Sheet3.Activate

'Sheet3.Range ("M2") = Str (n) + "*" + Str (n)

Sheet3.Range ("R2") = n

Call InitS - виклик функції InitS

For i = 1 To n

For j = 1 To n

Input # 2, A (i, j)

Sheet3.Cells (i + 3, j) = A (i, j)

Next j

Next i

Close # 2 - Закриває файл, відкритий оператором Open під номером 2.

MsgBox ("Матриця А прочитана з файлу ")

End If

If Sheet1.OptionButton3.Value = True Then

'Заповнення тестового значення

Randomize - Ініціалізує генератор випадкових чисел. Якщо цей оператор не помістити перед функцією Rnd, то при кожному запуску програми будуть генеруватися одні й ті ж випадкові числа.

For i = 1 To n

For j = 1 To n

A (i, j) = 20 * Rnd () - 10 - Повертає Single значення, що містить випадкове число від 0 до 1.

Next j

Next i

Sheet3.Cells (3, 2) = "Матриця заповнена випадковими тестовими значеннями "

For i = 1 To n

For j = 1 To n

Sheet3.Cells (i + 3, j) = A (i, j)

Next j

Next i


Назад | сторінка 8 з 12 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Докладне вивчення роботи фінансової функції ДАТАКУПОНДО, яка повертає число ...
  • Реферат на тему: Оптимізація та управління технологічним процесом обслуговування АТС (на при ...
  • Реферат на тему: Розробка в середовищі Turbo Pascal програми обчислення суми елементів рядкі ...
  • Реферат на тему: Розробка в середовищі Turbo Pascal програми сортування елементів, що знаход ...
  • Реферат на тему: Розробка програми для підрахунку хеш-суми файлу і тексту з графічним інтерф ...