无法读取结果十进制结果（Visual Basic 6.0）

Question

我有一个问题，我的程序无法读取0.0 ##结果 如果我把mid（z）= 0.6875的值放到这个公式

公式= 2.718281828 ^ mid（z） - 2 为什么结果是-1.12625？它应该是-0.0112625

source Code 1 source code 2

不仅是0.6875，还有结果为0.0的其他数字#### 这意味着我的程序无法读取0.0

请帮帮我，抱歉英文不好

我使用编程语言vb6 btw

源代码：

Dim tengah(11) As Variant

Dim f(11) As Variant

Dim rumus As Variant

Dim x As Variant

Dim a As Variant

Dim b As Variant

Dim fc(11) As Variant

    Private Sub cmdHitung_Click()

    a = txtKiri.Text

    b = txtKanan.Text

    f(a) = 2.718281828 ^ Val(txtKiri.Text) - 2

    f(b) = 2.718281828 ^ Val(txtKanan.Text) - 2

For z = 1 To cboJumlah.Text

    tengah(z) = (a + b) / 2

    f(tengah(z)) = 2.718281828 ^ tengah(z) - 2

    fc(z) = f(tengah(z))

If f(tengah(z)) * f(a) <= 0 Then

     b = a

     a = tengah(z)

  Else

     a = b

     b = tengah(z)

  End If

 Next z

 For x = 1 To cboJumlah

    txtc(x) = tengah(x)

    txtfc(x) = fc(x)

    txtc(x).Visible = True

    txtfc(x).Visible = True

    Text(x).Visible = True

Next x

Private Sub Form_Load()

For a = 1 To 10

     cboJumlah.AddItem (a)

Next a

End Sub

End Sub

Issue

Answer 1

有关如何格式化数字，日期等的详细说明，请参阅VBA Format function。

格式化您以标准方式使用的数字的示例如下：

For x = 1 To cboJumlah

    txtc(x) = Format(tengah(x), "0.########")
    txtfc(x) = Format(fc(x), "0.########")
    txtc(x).Visible = True
    txtfc(x).Visible = True
    Text(x).Visible = True

Next x

如果您浏览链接页面，您将看到甚至可以为多个案例提供自定义掩码，即一个掩码为正面，一个面针为空，一个面针为底片等。