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 溢出呢？