Создание сообщения с использованием элементов 2 векторов в VBA

Question

С VBA я кодирую форму пользователя, которая выполняет линейную регрессию. У меня проблема. Я хочу создать сообщение, состоящее из элементов 2 векторов.

На примере это будет понятнее:

У меня есть 2 вектора:

Вектор A : 0.25; 0.50; -0.80

Вектор B: X^2; sqr(x); ln(x)

Я хочу написать сообщение "0.25X ^ 2 + 0.50sqr (x) - 0.80ln (x)"

Мне нужно решение Dynami c, потому что число элементов обоих векторов не фиксировано. (Например, в одной итерации оба вектора могут иметь 3 элемента; в другой - 4 элемента).

Как объединить элементы 2 векторов в сообщении?

Answer 1

Это то, что вы хотите?

Function mergeArrays2String()

  Dim i, iUpbound, A, B, strret

  A = Array(0.25, 0.5, -0.8)
  B = Array("X^2", "sqr(x)", "ln(x)")
  '
  iUpbound = UBound(A)
  '
  strret = ""
  '
  For i = 0 To iUpbound
    '
    If (i > 0) Then
      If (A(i) > 0) Then
        strret = strret & "+"
      End If
    End If
    '
    strret = strret & A(i) & B(i)
    '
  Next
  '
  mergeArray2String = strret
  '
End Function