我用vb6编写一个计算物理中加速度的程序,可是在运行阶段说：实时错误：6溢出.Dim a,b,c,x As IntegerPrivate Sub Command1_Click()Text1.Text = aText2.Text = bText3.Text = cx = (a - b) / cText4.Text = xEnd Sub
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/13 04:12:06
我用vb6编写一个计算物理中加速度的程序,可是在运行阶段说：实时错误：6溢出.Dim a,b,c,x As IntegerPrivate Sub Command1_Click()Text1.Text = aText2.Text = bText3.Text = cx = (a - b) / cText4.Text = xEnd Sub
我用vb6编写一个计算物理中加速度的程序,可是在运行阶段说：实时错误：6溢出.
Dim a,b,c,x As Integer
Private Sub Command1_Click()
Text1.Text = a
Text2.Text = b
Text3.Text = c
x = (a - b) / c
Text4.Text = x
End Sub
我用vb6编写一个计算物理中加速度的程序,可是在运行阶段说：实时错误：6溢出.Dim a,b,c,x As IntegerPrivate Sub Command1_Click()Text1.Text = aText2.Text = bText3.Text = cx = (a - b) / cText4.Text = xEnd Sub
似乎这个可以直接写为 Text4.Text=(text1.text-text2.text)/text3.text 吧,而且所输入的内容要在没有搜狗、百度、五笔等输入法的情况下输入
因为除数c=0或太接近0，得到的x>32767(这是Integer所能存储的最大数)，所以这样写可能更好：
Dim a, b, c, x As Double
Private Sub Command1_Click()
Text1.Text = a
Text2.Text = b
Text3.Text = c
if c=0 then
...
全部展开
因为除数c=0或太接近0，得到的x>32767(这是Integer所能存储的最大数)，所以这样写可能更好：
Dim a, b, c, x As Double
Private Sub Command1_Click()
Text1.Text = a
Text2.Text = b
Text3.Text = c
if c=0 then
msgbox "除数c为0",vbCritical
else
x = (a - b) / c
end if
Text4.Text = x
End Sub
收起