Vb.net 将列表框项绑定到公式

我是VB 2010的新用户。我正在做一个简单的程序，作为我大学项目的一部分 该计划的目的是帮助用户找到适合其热量的合适膳食。 计算卡路里需要考虑很多因素。 这些是年龄、体重、身高和活动水平 然后用户应该决定他/她是想保持体重还是减肥 基于所有这些输入。。应该出示餐券

实际上，我建立了程序的形式。。。我写了计算BMR的公式，这是计算卡路里之前的前一步。尽管取得了这一进展，但我发现很难将列表框中的活动级别绑定到等式中，因为每个级别都表示一个数字以将其添加到等式中。我不知道该怎么办。我应该首先识别列表框中的项目还是

我在网站和youtube上找到了很多资料，但这些都不是我需要的 我需要你的帮助

这就是我所做的

 If RadioButton1.Checked = True Then
            TextBox1.Text = (66 + (13.7 * MaskedTextBox1.Text) + (5 * MaskedTextBox2.Text) - (6.8 * MaskedTextBox3.Text))
        ElseIf RadioButton2.Checked = True Then
            TextBox1.Text = (665 + (9.6 * MaskedTextBox1.Text) + (1.8 * MaskedTextBox2.Text) - (4.7 * MaskedTextBox3.Text))
        End If

---

您要做的是：

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    If ListBox1.SelectedItem = "This is item 1" Then
        'Do your math here - If you want the first item to be 1
        'then you simply use the number 1 here

        'Example: (Will display 2)
        MsgBox(1 + 1)
    ElseIf ListBox1.SelectedItem = "This is the 2:nd item" Then
        'Do your math here - If you want the first item to be 1
        'then you simply use the number 1 here

        'Example: (Will display 3)
        MsgBox(1 + 2)
    ElseIf ListBox1.SelectedItem = "This is item 3" Then
        'Do your math here - If you want the first item to be 1
        'then you simply use the number 1 here

        'Example: (Will display 4)
        MsgBox(1 + 3)
    End If
End Sub

因此，基本上，如果所选项目是计算1+1的项目，那么代码将完成该等式

---

如果希望动态添加项目，还有另一种方法：

我不了解列表框项目包含的内容。但是我们可以说它们含有一定量的卡路里。您可能应该检查ListboxName.SelectedIndexChanged上特定项包含的数据。如果你需要持续的帮助，告诉我！Thanx Alex，实际上，我的列表框包含3项内容。。。所以，当用户输入他/她的详细信息时，他/她必须选择其中一项。但是，这些项目是以文本形式编写的。。所以，我需要程序将所选文本转换为数字，以便我可以将其添加到方程式中。。。如果用户输入其性别、年龄、体重、身高，并选择列表框中的一个项目。。结果应该是上面的等式在listbox中的选定项中相乘，所以基本上，您需要一个listbox项来包含一个数字，而它的文本是其他内容？列表框items text=Hello World，可以说数据是1337？然后检索要在等式中使用的数字？这三个列表框项目是由您创建的，它们总是在那里还是由用户创建的，即当单击按钮时，会添加一个项目？非常感谢，，，，这对我很有帮助