![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Тексты программы
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
|