Тексты программы

Private Sub CommandButton1_Click()

Dim A11, A12, A21, A22 As Single

Dim U1, U2, I1, I2 As Single

Dim A11beg, A11end, dA11 As Single

Dim NumRow As Single

U2 = Cells(2, 8).Value

I2 = Cells(2, 9).Value

A12 = Cells(2, 4).Value

A21 = Cells(2, 5).Value

A22 = Cells(2, 6).Value

A11beg = Cells(2, 1).Value

A11end = Cells(2, 2).Value

dA11 = Cells(2, 3).Value

NumRow = 6

For A11 = A11beg To A11end Step dA11

U1 = A11 * U2 + A12 * I2

I1 = A21 * U2 + A22 * I2

Cells(NumRow, 1).Value = A11

Cells(NumRow, 2).Value = U1

Cells(NumRow, 3).Value = I1

NumRow = NumRow + 1

Next A11

End Sub

Private Sub CommandButton2_Click()

Dim A1, A2, Abeg, Aend, dA As Single

Abeg = 1

Aend = 10

dA = 1

NumRow = 6

Row = 1

For A1 = Abeg To Aend Step dA

Cells(NumRow, 1).Value = " "

Cells(NumRow, 2).Value = " "

Cells(NumRow, 3).Value = " "

NumRow = NumRow + 1

Next A1

For A2 = Abeg To Aend Step dA

Row = Row + 1

Cells(2, Row).Value = " "

Next A2

End Sub

Результаты рассчета

Проверка результатов вручную.

U1

I1