7744
您有个“netx”!
Private Sub Form_Load()
Dim flashweb(4) As Integer
For C_Loop% = 32 To 100
flashweb(4) = C_Loop% * C_Loop%
flashweb(0) = Int(flashweb(4) / 1000)
flashweb(1) = Int(flashweb(4) / 100) - flashweb(0) * 10
flashweb(2) = Int(flashweb(4) / 10) - flashweb(0) * 100 - flashweb(1) * 10
flashweb(3) = Int(flashweb(4)) - flashweb(0) * 1000 - flashweb(1) * 100 - flashweb(2) * 10
If flashweb(0) = flashweb(1) Then
If flashweb(2) = flashweb(3) Then
MsgBox (flashweb(4))
End If
End If
Next C_Loop%
End Sub
7744