VB的一个小程序不能运行

来源：百度知道编辑：UC知道时间：2024/05/13 11:24:21

我主要实现a = (x1 * y1 + x2 * y2 + x3 * y3 + x4 * y4 + x5 * y5 + x6 * y6) / (y1 + y2 + y3 + y4 + y5 + y6)
把a里面的数输出到屏幕上，但是我不是计算机毕业的不知道那里错了，这一行老是报错。

以下是主程序：
Dim a As Single
Dim x1 As Single
Dim x2 As Single
Dim x3 As Single
Dim x4 As Single
Dim x5 As Single
Dim x6 As Single
Dim y1 As Single
Dim y2 As Single
Dim y3 As Single
Dim y4 As Single
Dim y5 As Single
Dim y6 As Single

Private Sub Command1_Click()
a = (x1 * y1 + x2 * y2 + x3 * y3 + x4 * y4 + x5 * y5 + x6 * y6) / (y1 + y2 + y3 + y4 + y5 + y6)
Label9.Caption = a
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_Change(Index As Integer)
x1 = Text1(0).Text
x2 = Text1(1).Text
x3 = Text1(2).Text
x4 = Text1(3).Text
x5 = Text1(4).Text
x6 = Text1(5).Text
End Sub

Private Sub Text2_Change(In

1.计算a值时，应把个文本框TEXT的值用VAL()函数转成数值；
2.向Label9.Caption 赋值时，STR()函数把a值转成字串.

Dim a As Single

把single全部改成double

我估计应该是超精了！~

然后把x1 = Text1(0).Text这句话改成x1 = val(Text1(0).Text)

把a = (x1 * y1 + x2 * y2 + x3 * y3 + x4 * y4 + x5 * y5 + x6 * y6) / (y1 + y2 + y3 + y4 + y5 + y6)
改成
if y1 + y2 + y3 + y4 + y5 + y6 <>0 then
a = (x1 * y1 + x2 * y2 + x3 * y3 + x4 * y4 + x5 * y5 + x6 * y6) / (y1 + y2 + y3 + y4 + y5 + y6)
end if

Label9.Caption = a

你这句话是什么意思?

控件怎么能不改名呢?

由于我没装VB,所以我也不能确定

你把single类型换成double试试,
记得你把所有text控件都添上数字。
(y1 + y2 + y3 + y4 + y5 + y6)的值也不要是零

你的Text1(1).Text里面添的不是数字

我认为可能是你的x、y没有赋值吧
你可以默认一个0运行一下

VB的一个小程序不能运行用VB.NET写了一个小程序,为何不能在别的机子上运行呢? vb的一个小程序 vb的这个小程序为什么不能在立即窗口运行 VB的一个小程序，求助请教一个小的VB程序一个关于vb的小程序关于VB的一个小程序我VB程序的一个小问题 vb的一个小程序问题。