Ребят, сам я полный чайник, только учусь выклдываю задание и свой код, подкорректируйте пожалуйста ошибки.
Код:
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
' Фунция ввода диаметра в TextBox
Function vvod(ByVal T As TextBox) As Single
Return CSng(Val(T.Text))
End Function
' Процедура вывода площади в TextBox
Sub Vivod(ByVal Z As Single, ByVal T As TextBox)
T.Text = CStr(Z)
End Sub
'Функция вычисления площади круга 1
Public Function ПлощадьКруга1(ByVal d1 As Single) As Single
Return CSng(PI * ((d1 ^ 2) / 4))
End Function
'Функция вычисления площади круга 2
Public Function ПлощадьКруга2(ByVal d2 As Single) As Single
Return CSng(PI * ((d2 ^ 2) / 4))
End Function
'Функция вычисления площади круга 3
Public Function ПлощадьКруга3(ByVal d3 As Single) As Single
Return CSng(PI * ((d3 ^ 2) / 4))
End Function
' Процедура выичления площади.
Sub s(ByVal d1 As Single, ByVal d2 As Single, ByVal d3 As Single)
Dim S1, S2, S3 As Single
S1 = ПлощадьКруга1(d1)
S2 = ПлощадьКруга2(d2)
S3 = ПлощадьКруга3(d3)
End Sub
Private Sub Button1_Click()
Dim d1 As Single, d2 As Single, d3 As Single
Dim S1 As Single, S2 As Single, S3 As Single
d1 = vvod(TextBox1) : d2 = vvod(TextBox2) : d3 = vvod(TextBox3)
s(d1, d2, d3, S1, S2, S3)
Vivod(S1, TextBox4) : Vivod(S2, TextBox5) : Vivod(S3, TextBox6)
End Sub
End Class