UC知道Vb程序设计,请帮我找下错好吗?
来源：百度知道 编辑：UC知道 时间：2024/06/09 01:33:31
比较数字大小并按小到大排序------
这是我的全部代码:
Private Sub Command1_Click()
Dim X, Y, Z, T As Integer
X = Val(Text1)
Y = Val(Text2)
Z = Val(Text3)
If X > Y Then T = X: X = Y: Y = T
If Y > Z Then T = Y: Y = Z: Z = T
If X > Y Then T = X: X = Y: Y = T
Text4.Text = X
Text5.Text = Y
Text6.Text = Z
End Sub
可运行时为什么有的数据能够成功比较并排序,可有好多都无法运行呢?尤其是位数多的数据.大家拜托了...
这是我的全部代码:
Private Sub Command1_Click()
Dim X, Y, Z, T As Integer
X = Val(Text1)
Y = Val(Text2)
Z = Val(Text3)
If X > Y Then T = X: X = Y: Y = T
If Y > Z Then T = Y: Y = Z: Z = T
If X > Y Then T = X: X = Y: Y = T
Text4.Text = X
Text5.Text = Y
Text6.Text = Z
End Sub
可运行时为什么有的数据能够成功比较并排序,可有好多都无法运行呢?尤其是位数多的数据.大家拜托了...
Private Sub Command1_Click()
Dim X#, Y#, Z#, T#
X = Val(Text1)
Y = Val(Text2)
Z = Val(Text3)
If X > Y Then T = X: X = Y: Y = T
If Y > Z Then T = Y: Y = Z: Z = T
If X > Y Then T = X: X = Y: Y = T
Text4 = X
Text5 = Y
Text6 = Z
End Sub
'这样写应该会好一点的.integer是整型,其表示范围是-32768到32767,如楼上所说,double双精度型(#为其类型符),表示范围大概是-1.78E308到1.78E308,够你用了吧!~ ^_^b
Dim X, Y, Z, T As Integer
不能这么定义 这是C的定义方法
这样的话 x y z 就都是变体
应该是 x%,y%,z%,t%
或者是 x as integer y as ...
Dim X, Y, Z, T As Integer
定义的是“常规整数型数”范围小了
改成“Dim X, Y, Z, T As double”范围就大多了
你定义把Integer 换为Long试试呢