Заполнение массива

Для работы с массивом необходимо предварительно его заполнить, т.е. присвоить элементам массива определенные значения.

Заполнение с клавиатуры осуществляется с помощью функции InputBox.

Например: Заполнение двумерного массива размерностью

Dim intN, intM, intI , intJ As Integer

Dim strIJ As String

Dim arrA() As Single

 

Private Sub cmdok_Click()

intN = Val(txtn.Text)

intM = Val(txtm.Text)

ReDim arrA(1 To intN, 1 To intM)

Print

Print "Исходные данные"

For intI = 1 To intN

For intJ = 1 To intM

strIJ = InputBox("Ввод элемента a" & intI & intJ & " :", "Ввод массива")

arrA(intI, intJ) = CSng(strIJ)

Next intJ

Next intI

For intI = 1 To intN

For intJ = 1 To intM

Print arrA(intI, intJ);

Next intJ

Print

Next intI

 

Заполнение с помощью оператора присваивания. Например: Вычислить элементы квадратной матрицы: , где

Dim arrA() As Single

Dim sngS As Single

Dim intI, intJ, intk, intN As Integer

 

Private Sub cmdC1_Click()

intN = Val(txtT1.Text)

intk = Val(txtT2.Text)

 

ReDim arrA(1 To intN, 1 To intN)

Print

Print Tab(5), "матрица a"

For intI = 1 To intN

For intJ = 1 To intN

arrA(intI, intJ) = (-1) ^ (intI + intJ) * (intI * intN + intJ * intK)

Print " " + Format(arrA(intI, intJ), "##0.###");

Next intJ

Print

Next intI








Дата добавления: 2015-08-08; просмотров: 602;


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

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.004 сек.