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

Эх ларчик просто открывался)
Оказывается, функцию отдельно вызывать вовсе ненужно. Нужно просто передать ей значения)
Это все от недостатка, а точнее - полного отсутствия теории по 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 

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

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

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