Заполнение массива
Для работы с массивом необходимо предварительно его заполнить, т.е. присвоить элементам массива определенные значения.
Заполнение с клавиатуры осуществляется с помощью функции 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 "Исходные данные"
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
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 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
Next intI
Дата добавления: 2015-08-08; просмотров: 597;