急！急！急！编写vb程序！在线等

来源：百度知道 编辑：UC知道 时间：2024/05/16 06:04:42
找出2~1000以内这样的数：
使x平方所得的数的末n位与x相等（x有几位，n就取几位）
例如5，6，25（625）就是这样的数。
最好用循环结构做。
谢谢！

Private Sub Form_Load()
Dim I, X As Single, Z As Integer
For I = 2 To 1000
Z = Len(I)
X = I * I
If I = Val(Right(X, Z)) Then
Form1.Show
Print I
End If
Next I
End Sub

For i = 2 To 1000
a = Len(i)
b = i * i
If i = Val(Right(b, a)) Then
Print i;
End If
Next

For i = 2 To 1000
a = Len(i)
b = i ^2
If i = Val(Right(b, a)) Then
Print i;
End If
Next i

Private Sub Form_Load()
For i = 2 To 1000
a = Len(i)
b = i * i
If i = Val(Right(b, a)) Then
Form1.Show
Print i
End If
Next i
End Sub