Как заполнить квадратную матрицу значениями? - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
