![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 19.02.2011
Сообщений: 25
|
![]()
Не могу понять в чем проблема, почему ошибка. Помогите, пожалуйста.
Вот код Private Sub CommandButton1_Click() Dim x As Integer Dim a As Integer Dim z As Single Public Function MyNumOfDegr(Mynumb As Long, Optional MyVol As Long = 2) As Double MyNumOfDegr = Mynumb ^ (1 / MyVol) End Function x = Val(TextBox1) If x < 0 Or x = 0 Then a = 1 + x * x * x * x a = MyNumOfDegr(a, 3) z = (1 + x * x) / (2 * a) Label10.Caption = Str(z) Else z = 0 End If End Sub |
![]() |
![]() |
![]() |
#2 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
![]()
В том что у вас Public Function MyNumOfDegr внутри макроса. Уберите его наружу и будет Вам счастье.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
![]() |
![]() |
![]() |
#3 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]()
или закройте End Sub-ом Private Sub CommandButton1_Click()
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
END expected but Function found | Host-2013 | Общие вопросы Delphi | 20 | 27.02.2013 20:05 |
BEGIN expected but END found | lypyotr | Помощь студентам | 4 | 09.11.2011 15:43 |
expected end but var found | obsession | Общие вопросы Delphi | 7 | 10.05.2011 11:19 |
Определяет ошыбку end expected | helena91 | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 07.03.2011 20:05 |
expected END but : found | qqanton | Помощь студентам | 2 | 31.10.2008 17:45 |