0

我有一个包含组合框和两个文本框的用户窗体,用户从组合框1 中选择一种化学物质(文本),然后在文本框1(数字)中输入化学物质的高度。然后根据他选择的化学品,我定义化学品罐的密度和面积。然后我需要计算: textbox2.value=density*area*textbox1.value 每种化学品的密度和面积都不同。方程是质量=密度*面积*体积。我试过这个代码: Private Sub ComboBox1_Change() Dim chem As String

chem = ComboBox1.Value
    mychem

End Sub
Sub mychem()
Dim density As Double
Dim volume As Double

If chem = "Sodium" Then
area = 22
density = 1.058
End If
If chem = "HCl 9%" Then
area = 22
density = 1.043
End If
If chem = "alum" Then
area = 70
density = 1.163
End If
If IsNumeric(Txtheight.Text) Then
                txtmass.Value = density *area * CDbl   (Txtheight.Value)

                   End If
end sub
4

1 回答 1

0

密度和体积是变量,它们没有Value属性。

TextBox4.Value = CDbl(density) * CDbl(volume) * CDbl(TextBox8.Value)

此外,密度和体积已经是 Doubles,您无需使用 CDbl 转换它们。

你应该花时间重命名你的控件。我会建议txtHeight,但您的描述不清楚文本框是否包含高度、面积或体积(?)。

于 2013-07-16T20:52:05.263 回答