Показать сообщение отдельно
Старый 19.11.2011, 02:25   #1
Участник
 
Регистрация: 24.06.2008
Сообщений: 530

Репутация: 864
По умолчанию Помощь нубу VB.

Ребят, сам я полный чайник, только учусь выклдываю задание и свой код, подкорректируйте пожалуйста ошибки.
Код:
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
Миниатюры
Нажмите на изображение для увеличения
Название: 2011-11-19_012446.png
Просмотров: 107
Размер:	3.7 Кб
ID:	18051  
...vamp вне форума