-1

我正在尝试显示此案例的结果并以货币格式化总金额。但是，它不起作用，我不太确定为什么？有人可以看看我的代码并告诉我你是否看到了我的眼睛看不到的东西。我只需要第二双眼睛看这个。谢谢！

Select Case ApplianceButton
        Case "Refrigerator"
            Label17.Text = FormatCurrency(kwVal).ToString
        Case "TV"
            Label19.Text = FormatCurrency(kwVal).ToString
        Case "Fan"
            Label21.Text = FormatCurrency(kwVal).ToString
        Case "Space Heater"
            Label23.Text = FormatCurrency(kwVal).ToString
        Case "Oven"
            Label25.Text = FormatCurrency(kwVal).ToString
        Case "Dryer"
            Label27.Text = FormatCurrency(kwVal).ToString
        Case "Laundry Washer"
            Label29.Text = FormatCurrency(kwVal).ToString

Label30.Text = Int((kwVal(Label17.Text) + kwVal(Label19.Text) 
    + kwVal(Label21.Text) + kwVal(Label23.Text) + kwVal(Label25.Text) 
    + kwVal(Label27.Text) + kwVal(Label29.Text)))
4

1 回答 1

-1

Appliancebutton应该是应该显示或提供您的设备名称的值，然后比make Dim Appliancebutton as string?

那么如果您说您的设备按钮被点击或发生了任何类型的事件，那么 的值Appliancebutton=应该是"Refrigerator" or "TV" or "Fan" etc...

要使用Formatcurrency函数，那么kwVal应该是整数或双精度等...对吗？

然后在总计上，,kwVal(Label17.Text)似乎您正在尝试乘以kwVal...Label17.Text

您的符号应该是星号 * 并且您不可能将字符串和整数相乘，那么如果有帮助，请使用Convert.toint32(label17.text), 来完成等式，尽管它可能很长，我更喜欢kwVal*(Convert.toint32(label17.text)?

只是猜测......我不知道这对你是否正确或有帮助。

于 2016-10-11T09:50:52.917 回答