UC知道VB程序运行结果错误是怎么回事？
来源：百度知道 编辑：UC知道 时间：2024/05/31 11:47:19
我做的作业是：在文本框中输入3种商品的单价，购买数量，计算出输出所用的金额。
做完后，运行界面，输入数字后，所算出来的最后结果（金额）不正确，仔细核对了下好几遍的代码，完全正确，算出来的结果就是不对，这是怎么回事呢？还请高手们帮帮忙。谢谢！
Private Sub Command1_Click()
Dim a1!, a2!, b1!, b2!, c1!, c2!, x!
a1 = Val(Text1.Text)
a2 = Val(Text2.Text)
b1 = Val(Text3.Text)
b2 = Val(Text4.Text)
c1 = Val(Text5.Text)
c2 = Val(Text6.Text)
x = a1 * a2 + b1 * b2 + c1 * c2
Text7.Text = x
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = "": Text7.FontSize = 12
End Sub
做完后，运行界面，输入数字后，所算出来的最后结果（金额）不正确，仔细核对了下好几遍的代码，完全正确，算出来的结果就是不对，这是怎么回事呢？还请高手们帮帮忙。谢谢！
Private Sub Command1_Click()
Dim a1!, a2!, b1!, b2!, c1!, c2!, x!
a1 = Val(Text1.Text)
a2 = Val(Text2.Text)
b1 = Val(Text3.Text)
b2 = Val(Text4.Text)
c1 = Val(Text5.Text)
c2 = Val(Text6.Text)
x = a1 * a2 + b1 * b2 + c1 * c2
Text7.Text = x
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = "": Text7.FontSize = 12
End Sub
是啊你把代码粘过来
代码没有问题
我看你是这个意思：text1和text2为一种商品的数量和单价；text3和text4为一种商品的数量和单价；text5和text6为一种商品的数量和单价,text7是总和
如果不是这个意思，代码就写错了
肯定是代码有问题了
把代码粘上来大家看一看.
你的代码看上去确实没问题.要不把你的整个程序发到我邮箱,我这里试一下. cdh365@126.com