小编Jan*_*tor的帖子

我创建了一个简单的比萨程序(用于夏季项目而非教育相关),它使用复选框来确定客户想要的内容.基本上是一个简单的披萨订购计划.我想知道因为我已经使用了If语句而不是其他参数和变量,是否可以使用乘法数组来简单地使用VB代码...

我被建议在VB.Net中使用Constructors,但目前没有经验,你能帮忙吗？或者有更简单的方法来创建这个程序......或者更好的编程方式？如何减少代码中的重复？

Option Strict On
Public Class Form1

Dim CurrentBalance As String
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

    Dim SmallPizza As String
    SmallPizza = "5"
    CurrentBalance = Label4.Text
    If CheckBox1.Checked Then
        ListBox1.Items.Add("Small Pizza")
        Label4.Text = CStr(Val(CurrentBalance) + Val(SmallPizza))
    Else
        ListBox1.Items.Remove("Small Pizza")
        Label4.Text = CStr(Val(CurrentBalance) - Val(SmallPizza))
    End If
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
    Dim MediumPizza As String
    MediumPizza = "7"
    CurrentBalance = Label4.Text
    If CheckBox2.Checked …