где ошибка

@sanshitos · Регистрация: 03.07.2009

Студворк — интернет-сервис помощи студентам

срочна) исправте ошибку плизз вопрос жизни и смерти) нехочет вторая функция работать

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
Dim X As Single, Y As Single, A As Single
X = Val(Text1)
Y = Val(Text2)
A = 0.123 * Sqr(X) - (2 / 7) * Y ^ (1 / 4)
A = Format(A, ".###")
Text3 = A
B = Val(InputBox("Введите z", "Ввод данных"))
B = 33 ^ (1 / 2 * Log(Z) - Log(5.5)) * Tan(7 / 13)
B = Format(B, ".###")
MsgBox ("B=" & A), , ("Результат")
End Sub
 
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
 
 
End Sub

@BasicMan · 21.12.2009, 19:24

8я строка

д.б.

Visual Basic
1
Z = Val(InputBox("Введите z", "Ввод данных"))

внимательнее надо быть

Добавлено через 58 секунд
кстати а чо у тя в 11 строке написано?
"B=", а выводишь А?

@sanshitos · 21.12.2009, 19:38 **[ТС]**

спс тебе большое)

Добавлено через 9 минут
CyberБурундукЪ, а можешь еще помочь с ветвящимся процессом?

Добавлено через 1 минуту

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Command1_Click()
Dim x As Single, A As Single, y As Double
P = Val(InputBox("Введите P", " Ввод переменной "))
Z = Val(InputBox("Введите Z", "Ввод переменной"))
D = Val(InputBox("Введите D", "Ввод переменной"))
 
If P * Z <= D Then
T = 4 * P / Z * D ^ 2
T = Format(T, ".####")
Text3 = y
ElseIf P * Z > D Then
T = Sqr(2 * (P * Z - D))
T = FormatNumber(y, 3)
End If
MsgBox "T=" & T, , "Результат"
 
End Sub
 
Private Sub Command2_Click()
 
Text1 = " "
Text2 = " "
Text3 = " "
Label2 = "00:00:00 "
 
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Time
End Sub

это ваще потеря потерь

@BasicMan · 21.12.2009, 20:07

переменные прикольно названы

откуда ты у берешь в строках 10 и 13?

@sanshitos · 21.12.2009, 20:25 **[ТС]**

видишь ли в чем дело... я - девушка... существо абсолютно несовместимое с программированием(( и вообще не понимаю ЧТО делать... хотя есть неплохой вариант... прийти в универ с ак - 47...
ну что мне сделать, чтобы ЭТО заработало?
P.S. спешу с радостной новостью! еще есть работа селект кэйс и массивам...

Добавлено через 10 минут
CyberБурундукЪ, вааааа( Бурундууук не дай погибнуть смертью храбрых xD

@BasicMan · 21.12.2009, 20:25

sanshitos, формулу выложи

@sanshitos · 21.12.2009, 20:34 **[ТС]**

вот

@BasicMan · 21.12.2009, 21:01

10 строка - убрать
13я

Visual Basic
1
T = FormatNumber(T, 3)

Добавлено через 9 минут
девушка (?) с АК-47

а то что

Сообщение от sanshitos

я - девушка... существо абсолютно несовместимое с программированием

еще больший бред

@Toxa33rus · 22.12.2009, 19:17

Сообщение от sanshitos

Dim x As Single, A As Single, y As Double

Объявлены переменные которые нигде не используются, зато остальные без объявления. ЛОЛ

Сообщение от sanshitos

есть неплохой вариант... прийти в универ с ак - 47...

В армию иди с АК-47! Туда все идут абсолютно несовместимые с программированием

22.12.2009, 19:26

Сообщение от Toxa33rus

ЛОЛ

so my girlfriend does not run down) you yourself even know how to decipher the word LOL.
LOL - the language of the Internet means - Laughing Out Loud, "LOL"
So choose it before talking to a girl ....

above to be careful with phrases)

@BasicMan · 22.12.2009, 19:40

NitRoker, официальный язык форума - русский
yankee go home

22.12.2009, 19:44

CyberБурундукЪ, Russian language Ummm .... I'm not the Yankees), I from Kazakhstan.
I do not understand Russian, excuse me, how can I be then?

@BasicMan · 22.12.2009, 19:54

NitRoker, гугл в помощь
http://translate.google.com/?hl=ru#en|ru|

Новые блоги и статьи Все статьи Все блоги /
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	21.12.2009, 20:07
	переменные прикольно названы откуда ты у берешь в строках 10 и 13? 1

@sanshitos 0 / 0 / 0 Регистрация: 03.07.2009 Сообщений: 16
	21.12.2009, 20:25 [ТС]
	видишь ли в чем дело... я - девушка... существо абсолютно несовместимое с программированием(( и вообще не понимаю ЧТО делать... хотя есть неплохой вариант... прийти в универ с ак - 47... ну что мне сделать, чтобы ЭТО заработало? P.S. спешу с радостной новостью! еще есть работа селект кэйс и массивам... Добавлено через 10 минут CyberБурундукЪ, вааааа( Бурундууук не дай погибнуть смертью храбрых xD 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	21.12.2009, 20:25
	sanshitos, формулу выложи 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	22.12.2009, 19:40
	NitRoker, официальный язык форума - русский yankee go home 0

NitRoker
	22.12.2009, 19:44
	CyberБурундукЪ, Russian language Ummm .... I'm not the Yankees), I from Kazakhstan. I do not understand Russian, excuse me, how can I be then?

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	22.12.2009, 19:54
	NitRoker, гугл в помощь http://translate.google.com/?hl=ru#en\|ru\| 0