|
Родевич Любовь. Результаты контрольной по VBA.
вернуться на главную страницу можно, воспользовавшись ссылкой.
Оценка 1,7 балла (0,9+0,8).
Задание 1.
Люба, я бы не рекомендовал использовать такую форму условия - 5 < x <= 10 – лучше менять ее на x>-5 And x<=10, но это не ошибка. Будем считать, что и 2 * Sqr(10) вместо 2 * Sqr(x) – 'это просто описка, и 0,1 балла сняты просто за отсутствие описаний типов. Ни один из 3 упомянутых тобой Else – не нужен, но будем считать, что это тоже описка.
0,9
'Задание1
Public Function vurage(x)
If x > 10 Then
vurage = 2 * Sqr(10)
Else
End If
If 5 < x <= 10 Then
vurage = (4 * x) / (2 * (15 * x - 5))
Else
End If
If x < 5 Then
vurage = (3 * x + 5) / (x ^ 2 + 1)
Else
End If
End Function
Задание 2.
Люба, вот это уже откровенный поток сознания, такое можно получить, наверное, только случайным нажатием на клавиши, ибо в нем отсутствует какой-либо смысл в принципе.
0
Public Function proisvedotr(a, b, c)
na = a.Columns.Count
nb = b.Columns.Count
nc = c.Columns.Count
ReDim k(0 To nk - 1)
ReDim a0(0 To na - 1)
ReDim bo(0 To nb - 1)
ReDim c0(0 To nc - 1)
For i = 1 To na
If a(i) < 0 Then nk = na + nb + nc - 1
Next i
a0(i - 1) = a(i)
End Function
Задание 3.
Смысла на первый взгляд вроде бы побольше, но в целом см. предыдущий пункт.
0
Public Function sum1()
s = 0
For i = 13 To 70
s = 13 + a(i)
Next i
End Function
Задание 4.
Мама, роди меня обратно. Вроде и знаки и буквы какие-то похожие на те, что должны быть, но попытка найти в написанном хоть какой-то смысл чревата утратой рассудка…
0
Public Function col()
s = o
While n <> 0
p = u Mod 5
If p Mod s = 0 Then
s = s + p
End If
n = n / 5
Wend
End Function
Задание 5.
Речь, конечно, шла о "СУММЕ положительных элементов массива", то есть вместо k = k * a(r, c) надо k = k + a(r, c), но после предыдущего задания ты меня вернула к жизни…Баллы сняты за отсутствие описаний типов ну и за эту звездочку вместо плюса.
0,8
'Задание5
Public Function sumpol(a)
m = a.Rows.Count
n = a.Columns.Count
k = 0
For r = 1 To m
For c = 1 To n
If a(r, c) > 0 Then k = k * a(r, c)
Next c
Next r
sumpol = k
End Function
| 
