我有一个包含组合框和两个文本框的用户窗体,用户从组合框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