1

我是 VB 2010 的新用户。我正在做一个简单的程序,作为我 Uni 项目的一部分。这个程序的想法是帮助用户找到适合他/她卡路里的合适膳食。计算卡路里需要考虑很多因素。这些是年龄、体重、身高和活动水平 然后用户应该根据所有这些输入来决定他/她是要保持体重还是减轻体重.. 应该显示膳食

实际上,我构建了程序的形式......我编写了计算 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
4

1 回答 1

0

你要做的是:

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 的项目 - 代码将执行该“等式”

如果您希望动态添加项目,还有另一种方法:)

于 2013-04-04T15:08:08.317 回答