Shopping Cart/Form1.vb

（完整代码） 707B 

Public Class Form1

    'Total Code
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim total = 0
        If CheckBox1.Checked Then
            total += 50000
        End If
        If CheckBox2.Checked Then
            total += 10000
        End If
        If CheckBox3.Checked Then
            total += 8000
        End If

        TextBox1.Text = "Total is : ₹ " + Str(total)
    End Sub

    'Clear Code
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        CheckBox1.Checked = False
        CheckBox2.Checked = False
        CheckBox3.Checked = False
        TextBox1.Text = "Total is :"
    End Sub
End Class

24 小时内免费解锁 3 个项目，之后 1 算力/个。 规则说明

AI 解读 AI

登录后可用，每次 10 算力，解读结果公开显示在下面。

还没有人解读过这个文件。