Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Long
For a = 0 To 10000
b = Len(a)
c = a * a
If a = Right(c, b) Then
Print a
End If
Next
End Sub


各位帮忙看一下，为什么运行后，出现c=a*a 溢出呢？

高手帮忙一下吧

你输出一下long类型的最大值看看;不出意料的话,应该是溢出了

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Long
For a = 0 To 10000
b = Len(a)
c = CLng(a) * a
If a = Right(c, b) Then
Print a
End If
Next
End Sub

感觉应该不会溢出的呀,看看原程序的其它部分

long从-2,147,483,648到2,147,483,647

先看看其它地方有没有问题,没问题的可以试试改小a的值再看看.

？？？？？？？？？？？？？？

学习！

你输入了多大数据？？？？

？？？？？？？？？？？？？？？？？？？？？？

看一下书呀！！！！！！！！