Untitled
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