Visual Basic

Question

嗨我在visual basic中有错误的计算

当我在组合框中输入1.5全部

时

textbox4.text到textbox14.text是值为3,3,3,3,3,3,6,2,3且等于29的单位。

我将所有内容从textbox30.text添加到textbox22.text，将它们除以29的总单位 textbox31.text等于1.51724137931034但正确值为1.50 像这样

    TextBox30.Text = 3*1.5
    TextBox29.Text = 3*1.5
    TextBox28.Text = 3*1.5
    TextBox27.Text = 3*1.5
    TextBox26.Text = 3*1.5
    TextBox25.Text = 3*1.5
    TextBox24.Text = 6*1.5
    TextBox23.Text = 2*1.5
    TextBox22.Text = 3*1.5   

a = 4.5 + 4.5 + 4.5 + 4.5 + 4.5 + 4.5 + 9 + 3 + 4.5

textbox31.text = a / 29

继承人的代码

Dim a As Integer
    TextBox30.Text = TextBox4.Text * ComboBox5.Text
    TextBox29.Text = TextBox5.Text * ComboBox6.Text
    TextBox28.Text = TextBox6.Text * ComboBox7.Text
    TextBox27.Text = TextBox7.Text * ComboBox8.Text
    TextBox26.Text = TextBox8.Text * ComboBox9.Text
    TextBox25.Text = TextBox9.Text * ComboBox10.Text
    TextBox24.Text = TextBox10.Text * ComboBox11.Text
    TextBox23.Text = TextBox11.Text * ComboBox12.Text
    TextBox22.Text = TextBox12.Text * ComboBox13.Text


    a = TextBox30.Text + Val(TextBox29.Text) + Val(TextBox28.Text) + Val(TextBox27.Text) + Val(TextBox26.Text) + Val(TextBox25.Text) + Val(TextBox24.Text) + Val(TextBox23.Text) + Val(TextBox22.Text)

    TextBox31.Text = (a / 29)

Answer 1

我不知道它是否能解决您的问题，但使用像double这样的数据类型总是更好。整数只适用于整数。

请尝试Dim a As Double

Answer 2

a是整数。 a = 44. a / 29 = 1.5172413793。

通过确保选项严格始终开启，可以避免一些这些问题。