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

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

Заполнение с клавиатуры осуществляется с помощью функции 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

Дата добавления: 2014-01-06