17037

Використання багатомірних масивів у VB 6.0

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторна робота № 15 Тема. Використання багатомірних масивів у VB 6.0. Мета: виробити уміння створення багатомірних динамічних масивів і роботи з ними в VB 6.0. Обладнання: ПК ПЗ VB 6.0. Хід роботи Індивідуальне завдання. Скласти програму в VB 6.0 для розвязання задач

Украинкский

2013-06-29

45.5 KB

2 чел.

Лабораторна робота № 15

Тема. Використання багатомірних масивів у VB 6.0.

Мета: виробити уміння створення багатомірних, динамічних масивів і роботи з ними в VB 6.0.

Обладнання: ПК, ПЗ VB 6.0.

Хід роботи

Індивідуальне завдання.

Скласти програму в VB 6.0 для розв’язання задачі.

19

Знайти суму елементів контуру

Листинг

Результат

Private Sub Command1_Click()

Dim a() As Double, i As Integer, j As Integer, n As Integer, s As Double

n = Text1.Text

ReDim a(1 To n, 1 To n)

For i = 1 To n

For j = 1 To n

a(i, j) = InputBox("Введите a[" & i & "][" & j & "]:")

If i = 1 Then s = s + a(i, j)

If i = n Then s = s + a(i, j)

If j = 1 Then s = s + a(i, j)

If j = n Then s = s + a(i, j)

Next

Next

s = s - a(1, 1) - a(1, n) - a(n, 1) - a(n, n)

Text2.Text = s

End Sub

Контрольні питання.

  1.  Поняття масиву.
  2.  Поняття багатомірного масиву.
  3.  Поняття динамічного масиву
  4.  Оператор оголошення  багатомірного масиву( динамічного, статичного).


 

А также другие работы, которые могут Вас заинтересовать

13893. Закон тщетно существует для тех, кто не имеет мужества и средств его защищать 14.85 KB
  Закон тщетно существует для тех кто не имеет мужества и средств его защищать. Каждый человек живущий в государстве должен быть в первую очередь законопослушным защищать закон и следовать ему беспрекословно. Отсутствие справедливых законов может привести к гибел
13894. Если хочешь быть богатым, не помышляй увеличить своё имущество, а только умерь свою жадность 15.12 KB
  Если хочешь быть богатым не помышляй увеличить своё имущество а только умерь свою жадность. К. Гельвеций. Принято полагать что синонимом слову богатство является большое количество материальных благ принадлежащих какомулибо человеку. Но может ли считать
13895. Диктатура – это государство, в котором все боятся одного, а один – всех 14.52 KB
  Диктатура это государство в котором все боятся одного а один всех. А.Моравиан. Государства в которых у власти находятся диктаторы обречены на крах. Такая власть строится на запугивании населения что приводит в конечном счёте к её свержению. Диктатура пол...
13896. Демократия есть механизм, который гарантирует, что нами управляют не лучше, чем мы того заслуживаем 14.84 KB
  Демократия есть механизм который гарантирует что нами управляют не лучше чем мы того заслуживаем. Б. Шоу. Демократия политический режим при котором власть принадлежит всем или большинству свободных граждан подчиняющихся закону. Но демократия подразумевает не то...
13897. Дело – за юношей, совесть – за взрослым, молитва – за стариком 16.05 KB
  Дело за юношей совесть за взрослым молитва за стариком. Л. Питер. На каждом этапе социализации человек осуществляет определённый вид деятельности и выполняет определённые социальные роли. Социализация начавшийся в младенчестве и заканчивающийся в глу...
13898. Весь мир – театр. В нем женщины, мужчины – все актеры. У них есть выходы. И каждый не одну играет роль 19.44 KB
  Весь мир театр. В нем женщины мужчины все актеры. У них есть выходы. И каждый не одну играет роль. У. Шекспир Динамика современной жизни во многом заставляет личность приспосабливаться и трансформироваться меняя свою социальную роль. Говоря о социальной струк...
13899. Будь поучтивее с людьми, которых встречаешь, взбираясь наверх, - ты ещё встретишься с ними, когда будешь спускаться 15.52 KB
  Будь поучтивее с людьми которых встречаешь взбираясь наверх ты ещё встретишься с ними когда будешь спускаться У. Мизнер. Человеческая жизнь непредсказуема в ней бывают не только взлёты но и падения. На протяжении всей жизни человек приспосабливается к о
13900. Богатым человека делает его сердце 14.62 KB
  Богатым человека делает его сердце Л. Толстой. Нельзя судить о богатстве человека по толщине его кошелька. Только наличие высоких моральных качеств позволяет считать человека истинно богатым. Нравственность это степень усвоения личностью моральных ценностей
13901. Банки охотно дают деньги тем, кто может доказать, что в них не нуждается 25.5 KB
  Банки охотно дают деньги тем кто может доказать что в них не нуждается. Банк предоставляет свои услуги тем у кого есть средства и источники доходов. Банковская система совокупность национальных банков и других кредитных учреждений действующих в рамках единого ф