VPF::[VB6] Помогите бедному студенту с макросами!

freyward

Дата 27.8.2013, 23:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 27.8.2013

Репутация: нет
Всего: нет

Здравствуйте! Очень нужна ваша помощь.
Вот три задачи, я их вроде решил, но я не знаю где могут быть ошибки, ибо сомневаюсь в ответах.

Пожалуйста, проверьте, очень прошу. Напишите где ошибки, ниже текстовый вариант, чтобы было легче исправить.

https://ps.vk.me/c537305/u72648784/doc/ec3c4449439f/qwe.png

Вот текстовый вариант:

_____________ПЕРВАЯ ЗАДАЧА__________________________

Код


Sub AA()
n = Cells(1, 1).Value
m = Cells(2, 1).Value
a = Sin(n / m) ^ 2
b = Cos(m - n / 10) + 1.17
w = (a ^ 2 + b ^ 2) / (b ^ 2 + Sqr(a * b))
Cells(3, 1).Value = w
End Sub

_____________ВТОРАЯ ЗАДАЧА__________________________

Код


Sub BB()
m = Cells(2, 1)
n = Cells(2, 2)
a = Tan(2 * m)
b = 3 * Sin(n)
If b <= 1 Then
t = 1 / ((a + b) + 1)
Else
If a > 1 Then
t = a * Log(b + 1)
Else
t = Sqr((n ^ 2) - 1)
End If
End If
MsgBox "t=" & t
Cells(2, 3) = t
End Sub

_____________ТРЕТЬЯ ЗАДАЧА__________________________

Код


Public Sub CC()
m = Cells(2, 1)
n = Cells(2, 2)
P = 1
For k = 5 To 35
P = P * (m - 0.2 ^ k) / (k + k ^ (1 / 3))
Next
y = Sqr(m) * P
Z = y * (y - u) + 0.02 * n
MsgBox "z=" & Z
Cells(5, 1) = Z
End Sub

Это сообщение отредактировал(а) Poseidon - 28.8.2013, 17:05

Akina

Дата 28.8.2013, 09:53 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »