Как заполнить квадратную матрицу значениями? - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы