Кто-нибудь разбирается?)
Нужна небольшая помощь.
Вот задание:

Создать функцию, вычисляющую корень восьмой степени.
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
 

Решить нужно обязательно через это паблик-функцию.

мы тоже кажись это проходили . староста за меня курсовую писала .