не могу прочитать результат десятичный результат (Visual Basic 6.0)

Question

У меня проблема в том, что моя программа не может прочитать 0.0 ## результат, если в эту формулу положить значение mid (z) = 0.6875

формула = 2.718281828 ^ mid (z) - 2 почему результатэто -1.12625?это должно быть -0.0112625

исходный код 1 исходный код 2

не только для 0,6875, но и для других чисел, в результате чего 0,0 #### означает, что моя программа не может прочитать 0,0

пожалуйста, помогите мне, извините за плохой английский

Я использую программированиеязык vb6 между прочим

Исходный код:

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

Выпуск

Answer 1

См. Функция форматирования VBA для подробного объяснения того, как форматировать числа, даты и т. Д.

Примером форматирования чисел, которые вы используете стандартным способом, будет:

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

Если вы изучите связанную страницу, вы увидите, что вы даже можете предоставить пользовательские маски для нескольких случаев, например одну маску для положительной, одну для нулевой, одну для отрицательной и т. Д.