Untitled

 avatar
unknown
plain_text
5 months ago
1.2 kB
5
Indexable
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Const LX As Integer = 100
        Const BN As Integer = 500
        Const SD As Integer = 200
        Const HD As Integer = 80
        Const HM As Integer = 300
        Const AM As Integer = 150
        Dim sum As Integer
        If CheckBox1.Checked = True Then
            sum += LX
        End If
        If CheckBox2.Checked = True Then
            sum += BN
        End If
        If CheckBox3.Checked = True Then
            sum += SD
        End If
        If CheckBox4.Checked = True Then
            sum += HD
        End If
        If CheckBox5.Checked = True Then
            sum += HM
        End If
        If CheckBox6.Checked = True Then
            sum += AM
        End If
        TextBox1.Text = sum.ToString("C")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        CheckBox1.Checked = False
        CheckBox2.Checked = False
        CheckBox3.Checked = False
        CheckBox4.Checked = False
        CheckBox5.Checked = False
        CheckBox6.Checked = False
    End Sub
End Class
Editor is loading...
Leave a Comment