我用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/05/05 01:13:56

我用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

似乎这个可以直接写为 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

收起

我用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 编写一个程序,计算两个非0实数的加减乘除的运算结果!谁帮我编写这个程序?程序的步骤! 用C语言编写一个程序,计算一个整数的三次方,并输出计算结果 求用MATLAB编写空间梁的单元刚度矩阵和整体刚度矩阵的程序最近有一个作业是用MATLAB编写程序计算空间梁,单我不知道如何写求刚度矩阵的程序, 编写一个程序计算两个数的绝对值之和 编写程序,计算一个长方体的表面积和体积. 编写程序,计算1-1000中所有偶数的和. 用c++编写 计算表达式的值 对于给定的一个表达式,表达式中可以包括常数、算术运行符（“+”、“-”、“*”、“/”）和括号,编写程序计算表达式的值.基本要求：从键盘输入一个正确的中 求C语言!用switch编写一个计算分段函数的程序! 在线等VB求救：计算累加请不要嫌我说得啰嗦,这也是为了节约您的时间：设计一个VB6小程序,在文本框输入或粘贴一段数字,这些数字都是0-9的个位数,且它们之间被用回车键隔开,即每行仅有一 编写一个程序 ,采用方法重载分别实现圆、三角形、矩形、椭圆的面积计算 是用java程序哦 关于.bas,在线等!单位n年前的一个程序,是用basic.exe 调用cc.bas 文件,进入计算模式,是个dos程序,在命令提示下,输入basic cc 回车后即可运行程序,用VB6打开cc.bas是乱码,怎样才能获取程序的源码?N年 编写一个程序,求平面中两点之间的距离 用c语言编写程序计算5!+10!的值 用VF编写程序,完成计算n个数的平均值. JAVA语言计算表达式的结果用java语言编写一个程序,输入表达式,结算表达式的结果,其中表达式中有括号 win-tc程序：编写一个程序计算两个正整数的最大公约数和最小公倍数. 急需一个VB小程序,计算0-9数字总次数请不要嫌我说得啰嗦,这也是为了节约您的时间：设计一个VB6小程序,在文本框输入或粘贴一段数字,有的数字后面带括号,且无论该小括号与前面的数字有多