在公式結果中出錯

Question

以下代碼是excel userfrom並從文本框中獲取數字數據並計算公式對應的combobox.but當combobox.text =「b」爲某個文本框的值例如2時，結果爲7.46426393229446 E-02，同時它必須是0.074662

dim a as single 

a= val(textbox1) 

If ComboBox1.Text = "A" Then 

    j = 0.05 * (a)^0.9 

ElseIf ComboBox1.Text = "B" Then 

    j = 0.04 * (a)^0.9 

ElseIf ComboBox1.Text = "C" Then 

    j = 0.064 * (a)^0.75 

ElseIf ComboBox1.Text = "D" Or ComboBox6.Text = "E" Then 

    j = 0.08 * (a)^0.75 

Else 

    j = 0.05 * (a)^0.75 

End If 

LABEL1 = j的

Answer 1

而不是

0.04 * (a)^0.9

使用

0.04 * CDec((a)^0.9)或CDec(0.04 * (a)^0.9)

這應該解決您的問題。所以，你的代碼將

Dim a As Single 
a = Val(textbox1) 
If ComboBox1.Text = "A" Then 
    j = 0.05 * CDec((a)^0.9) 
ElseIf ComboBox1.Text = "B" Then 
    j = 0.04 * CDec((a)^0.9) 
ElseIf ComboBox1.Text = "C" Then 
    j = 0.064 * ((a)^0.75) 
ElseIf ComboBox1.Text = "D" Or ComboBox6.Text = "E" Then 
    j = 0.08 * CDec((a)^0.75) 
Else 
    j = 0.05 * CDec((a)^0.75) 
End If 

CDec功能轉換值小數。