Как заполнить квадратную матрицу значениями? - VB
Формулировка задачи:
Как заполнить квадратную матрицу конкретными числами?
В моей программе я нахожу коэффициенты в уравнении,присваиваю переменным(типа string) значения этих коэффициентов, и мне надо эти самые коэффициенты добавить в матрицу.
Допустим у меня есть переменные с различными значениями a1=2 a2=3 a3=4;b1=1 b2=3 b3=5; c1=2 c2=4 c3=7;
мне нужно заполнить матрицу этими значениями,вот так
2 3 4
1 3 5
2 4 7
Решение задачи: «Как заполнить квадратную матрицу значениями?»
textual
Листинг программы
'Option Explicit Private Sub Form_Load() Dim matrix(1 To 3, 1 To 3) arr = GetArray("a1 = 2", "a2 = 3", "a3 = 4", "b1 = 1", "b2 = 3", "b3 = 5", "c1 = 2", "c2 = 4", "c3 = 7") For i = 1 To UBound(matrix, 1) For j = 1 To UBound(matrix, 2) matrix(i, j) = arr(ind): ind = ind + 1 Next j, i 'Проверка For i = 1 To UBound(matrix, 1) s = s & vbLf For j = 1 To UBound(matrix, 2) s = s & " " & matrix(i, j) Next j, i MsgBox s End Sub Function GetArray(ParamArray exp()) Dim g(), i& For Each v In exp v = Split(Replace(v, " ", ""), "=") ReDim Preserve g(i): g(i) = v(1) i = i + 1 Next GetArray = g End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д