Найти ошибку в коде - VB
Формулировка задачи:
Решение задачи: «Найти ошибку в коде»
textual
Листинг программы
Private Sub Кракозябры()
Dim H As Double, O5 As Double, D36 As Double, D34 As Double
Dim D20 As Double, D21 As Double, D31 As Double, D32 As Double, D33 As Double
O5 = Range("O5").Value: D20 = Range("D20").Value: D21 = Range("D21").Value
D31 = Range("D31").Value: D32 = Range("D32").Value: D33 = Range("D33").Value: D34 = Range("D33").Value
If O5 <> 0 Then H = Range("D22").Value / O5 Else MsgBox "Range(""O5"").Value=0": Exit Sub
If H = 0 Or O5 > 1.21 Then Range("D36").Value = "Кракозябры_2"
If H = 1 Or O5 < 0.605 And O5 < 1.21 Then D36 = D20
If H = 2 Or O5 < 0.403 And O5 < 0.45 Then D36 = D20 + D31
If H = 2 Or O5 < 0.45 And O5 < 0.605 Then D36 = D20 + D21
If H = 3 Or O5 < 0.302 And O5 < 0.403 Then D36 = D20 + D31 + D21
If H = 4 Or O5 < 0.242 And O5 < 0.302 Then D36 = D20 + D31 + D21 * 2
If H = 5 Or O5 < 0.201 And O5 < 0.225 Then D36 = D20 + D31 + D32 + D21 * 3
If H = 5 Or O5 < 0.225 And O5 < 0.242 Then D36 = D20 + D31 + D21 * 3
If H = 6 Or O5 < 0.173 And O5 < 0.201 Then D36 = D20 + D31 + D32 + D21 * 3
If H = 7 Or O5 < 0.151 And O5 < 0.173 Then D36 = D20 + D31 + D32 + D21 * 4
If H = 8 Or O5 < 0.134 And O5 < 0.15 Then D36 = D20 + D31 + D32 + D33 + D21 * 4
If H = 9 Or O5 < 0.121 And O5 < 0.134 Then D36 = D20 + D31 + D32 + D33 + D21 * 5
If H = 10 Or O5 < 0.1101 And O5 < 0.1125 Then D36 = D20 + D31 + D32 + D33 + D34 + D21 * 5
If H = 10 Or O5 < 0.1125 And O5 < 0.121 Then D36 = D20 + D31 + D32 + D33 + D21 * 6
If H = 11 Or O5 < 0.101 And O5 < 0.1101 Then D36 = D20 + D31 + D32 + D33 + D34 + D21 * 6
If H = 12 Or O5 < 0.093 And O5 < 0.101 Then D36 = D20 + D31 + D32 + D33 + D34 + D21 * 7
Range("D36").Value = D36
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д