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.  Оператор оголошення  багатомірного масиву( динамічного, статичного).


 

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

23898. Гесиод Теогония, или О происхождении богов 18.18 KB
  Потом от Ночи родился День а от ЗемлиГеи НебоУран и МореПонт. Один за другим они вздували чрево материЗемли и вот ей стало невмоготу. Третьего звали Иапет от него родились могучий Атлант который стоит на западе земли и держит небо на плечах и мудрый Прометей который прикован к столбу на востоке земли а за что об этом будет речь дальше. Теперь их самих заточили в Тартар в самую глубь: сколько от неба до земли столько и от земли до Тартара.
23899. Гомер Илиада 20.07 KB
  Этот эпизод гнев Ахилла величайшего из последнего поколения греческих героев. Главным вождем был сильнейший из царей правитель города Аргос Агамемнон; с ним были брат его Менелай ради которого и началась война могучий Аякс пылкий Диомед хитроумный Одиссей старый мудрый Нестор и другие; но самым храбрым сильным и ловким был юный Ахилл сын морской богини Фетиды которого сопровождал друг его Патрокл. Это тот самый брак от которого родился Ахилл. Это был Ахилл.