20.05.2024 :: 01:13:17 |
Добро пожаловать, Гость. Пожалуйста, выберите Вход или Регистрация |
||
Добро пожаловать на наш форум! |
ГлавнаяСправкаПоиск |
Компьютерный форум Chitchat.RU › Неигровые форумы › Нужна помощь › Ответ на сообщение ( Re: Visual Basic ) |
Краткое содержание - Показано 3 сообщение(-я)(-й). | |
Отправил: Пауэлл | Отправлено: 07.03.2009 :: 21:58:43 |
мы тоже кажись это проходили . староста за меня курсовую писала .
| |
Отправил: High_octane | Отправлено: 06.03.2009 :: 01:45:40 |
Эх ларчик просто открывался)
Оказывается, функцию отдельно вызывать вовсе ненужно. Нужно просто передать ей значения) Это все от недостатка, а точнее - полного отсутствия теории по VB Code: Public Function кор_вос(Text1 As Double) As Double Чт_корень= Str(Val(Sqr(Sqr(Sqr(Text1))))) кор_вос = Чт_корень End Function Public Sub Command1_Click() Argument = Text1 Label2.Caption = кор_вос(Val(Argument)) End Sub | |
Отправил: High_octane | Отправлено: 05.03.2009 :: 18:32:05 |
Кто-нибудь разбирается?)
Нужна небольшая помощь. Вот задание: Создать функцию, вычисляющую корень восьмой степени. Code: Public Function кор_вос (Argument As Double) As Double Чт_корень =Sqr(Sqr (Sqr (Argument))) End Function Создать форму, позволяющую вводить значение аргумента и выводить значение корня восьмой степени. Создать программу для вычисления корня восьмой степени, использующую функцию Чт_корень. Внешний вид выглядит вот так. ___________________________________________________________ Здравые попытки закончились вот этим: Code: Public Function кор_вос (Argument As Double) As Double Чт_корень = Sqr(Sqr(Sqr(Argument))) кор_вос = Чт_корень End Function Public Sub Command1_Click() Argument = Text1 Call кор_вос Label2.Caption = "Корень восьмой степени равен:" + Str(Argument) End Sub Решить нужно обязательно через это паблик-функцию. ЗЫ. Сабжевый язык открываю 2ой раз в жизни. Спасибо всем, кто поможет мне в нем разобраться. |
YaBB Forum Software © 2000-2024. All Rights Reserved.