НАПИСАТЬ СЛОВЕСНЫЕ Методы К ДАННЫМ Программкам, ПОМОГИТЕ!!!Private Sub
НАПИСАТЬ СЛОВЕСНЫЕ Методы К ДАННЫМ Программкам, ПОМОГИТЕ!!!
Private Sub CommandButton1_Click()
'Объявление переменных
Dim A As Integer, S As Integer
'Ввод начальных данных
A = Val(Cells(2, 2).Value)
S = 0
i = 0
'Рассчет
While S lt; A
S = S + 1
i = i + 1
'Вывод результатов
Cells(i + 1, 1).Value = Str(S)
Wend
End Sub
-------------------------------------------------
Private Sub CommandButton1_Click()
'Объявление переменных
Dim R2 As Single, R3 As Single
Dim R1beg As Single, R1End As Single, dR1 As Single
Dim R12 As Single, R13 As Single, R23 As Single
'Ввод начальных данных
R2 = Val(Cells(3, 1).Value)
R3 = Val(Cells(3, 2).Value)
R1beg = Val(Cells(3, 3).Value)
R1End = Val(Cells(3, 4).Value)
dR1 = Val(Cells(3, 5).Value)
'Расчет
NumRow = 6
For R1 = R1beg To R1End Step dR1
R12 = R1 + R2 + (R1 * R2 / R3)
R13 = R1 + R3 + (R1 * R3 / R2)
R23 = R2 + R3 + (R2 * R3 / R1)
Cells(NumRow, 1).Value = Str(R1)
Cells(NumRow, 2).Value = Str(R12)
Cells(NumRow, 3).Value = Str(R13)
Cells(NumRow, 4).Value = Str(R23)
NumRow = NumRow + 1
Next R1
End Sub
Private Sub CommandButton2_Click()
For i = 1 To 5
Cells(3, i).Value = ""
Next i
For j = 6 To 16
Cells(j, 1).Value = ""
Next j
For k = 6 To 16
Cells(k, 2).Value = ""
Next k
For A = 6 To 16
Cells(A, 3).Value = ""
Next A
For b = 6 To 16
Cells(b, 4).Value = ""
Next b
End Sub
Программка 1
- Создаётся обработка нажатия кнопки
- Объявляется переменная A и S типа int
- A присваивается значение 2 строчки 2 столбца из таблицы Excel
- S и i равняются к нулю
- Цикл до тех пор, пока S не будет больше A, в котором производится прибавление единицы к S и i
- Также в цикле происходит заполнение i + 1 строчки 1 столбца.
Программа 2
- Создаётся обработка нажатия кнопки
- Объявляется R2, R3, R1beg, R2End, dR1, R12, R13, R23 типа float
- R2 парсит значение из ячейки 3 строчки 1 столбца (Val(), быстрее всего, примерная аналогия к TryParse())
- R3 парсит значение 3 строчки 2 столбца
- R1beg 3 строчки 3 столбца
- R1End 3 строки 4 столбца
- dR1 3 строчки 5 столбца
- Значению NumRow присваивается 6
- Создаётся цикл: R1 = R1beg с условием, пока R1 не будет меньше или равен R1End, при этом каждую итерацию происходит прибавление dR1 к R1
- В этом цикле R12 присваивается значение R1 + R2 + (R1 * R2 / (double)R3), причём R3 очевидно приводится к типу double
- Так же происходит и с R13, которому присваивается R1 + R3 + (R1 * R3 / (double)R2)
- Так же происходит и с R23, которому присваивается R2 + R3 + (R2 * R3 / (double)R1)
- Поочередно в ячейки NumRow строчки 1-4 (с первого по четвёртый) столбца заносятся приведённые к строке значения R1, R12, R13, R23, после чего к NumRow добавляется единица.
Программа 3
- Создаётся цикл, где i = 1 с условием i меньше либо одинаково 5, i с каждой итерацией добавляет к для себя единицу
- Берётся значение ячейки 3 строчки i столбца и равняется к пустопорожний строке ("")
- Создаётся цикл, где j = 6 с условием j меньше либо равно 16, j с каждой итерацией добавляет к для себя единицу
- Берётся значение ячейки j строчки 1 столбца и равняется к пустопорожней строке ("")
- Создаётся цикл, где k = 6 с условием k меньше либо одинаково 16, k с каждой итерацией прибавляет к для себя единицу
- Берётся значение ячейки k строчки 2 столбца и равняется к порожний строке ("")
- Создаётся цикл, где A = 6 с условием A меньше либо одинаково 16, A с каждой итерацией прибавляет к себе единицу
- Берётся значение ячейки A строки 3 столбца и приравнивается к порожний строке ("")
- Создаётся цикл, где b = 6 с условием b меньше либо одинаково 16, b с каждой итерацией добавляет к для себя единицу
- Берётся значение ячейки b строчки 4 столбца и приравнивается к пустопорожней строке ("")
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.