Question

Sub or function not defined - почему выскакивает?

После закрытия диалогового окна "Sub or function not defined" жёлтым выделена первая строчка кода "программы", делающейся в Visual Basic 6 (в общем коде обознаается 2-й), а синим выделено "ln" в шестой (7-я в general code).Привожу код программы:

Private Sub Command1_Click()

M: n = Val(InputBox("Введите значение N", "Ввод исходных данных"))

x = (n + 12) / (n + 20)

c = e ^ (-n)

If ln(c) * lg(x) > 1.87 Then

z = ctg(x / c)

ElseIf n + 20 = 0 Then

MsgBox ("Выражение не имеет решения: знаменатель не может равняться нулю!"): GoTo M

ElseIf x * c + 0.8 = 0 Then

MsgBox ("Подлогарифмическое выражение меньше нуля!"): GoTo M

ElseIf c = 0 Then

MsgBox ("Выражение не имеет решения: знаменатель не может равняться нулю!"): GoTo M

Else: z = (2 ^ xc) - ln(xc + 0.8)

End If

z = MsgBox("z = " + Str(z), vbYes, "Результат расчёта")

End Sub

Private Sub Command2_Click()

End

End Sub

Ума не приложу, что неправильно, подскажите, пожалуйста.

ElseIf менял на If - всё равно ошибка.

Answer 1

Судя по списку математический функций Basic 6, таких функций как ln и lg там нет, но зато есть log. (компилятор у вас жалуется на то, что таких функций не знает)

Запишите все через Log и Exp и ошибка скорее всего уйдет.

Answer 2

Такая ошибка обычно возникает, если функция или подпрограмма не была задана, но к ней обратились.

Попробовал у себя запустить данную программу.

Бейсик заругался на следующие выражения:

1) ln(c)

2) lg(x)

3) ctg(x / c)

4) c = e ^ (-n)

5) ln(xc + 0.8)

lg в vb6 записывается как Log(число)

Вместо ctg(число) можно выразить через существующую в бейсике функцию тангенса, разделив единицу на тангенс:

котангенс = 1/Tan(число)

А слово .Math на сколько я знаю, писать в vb6 не обязательно, это же не Javascript.

Как вычислить ln(число) не знаю, но вроде можно как-то преобразовать через математические формулы свойств логарифмов или решить через интегралы (в Википедии есть какая-то формула с интегралами).