Connected by... logo
  Главная
Market Connected by Velcom Connected by МТС Connected by БелСел Connected by Белтелеком Оборудование  
 См. также :
Рекомендуемое

bsu.by - официальный сайт БГУ

ЭФ на bsu.by - Экономфак на сайте БГУ

economy.bsu.by - официальный сайт ЭФ БГУ

e-University - тестовая система БГУ

Родевич Любовь. Результаты контрольной по 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

© 2003-2015 bsu.name, email: bsu@bsu.name, phone +375 297 72-30-84, page VKontakte
Зарегистрировать почту @bsu.name

  Rating All.BY