VB的问题 急等

来源：百度知道 编辑：UC知道 时间：2024/05/21 06:39:30
求2～1000中的守形数。所谓守形数，即该数与其平方数的低位相同。如25~2=625,625的低位25与原数相同，则25就是一个守形数。

Dim a As Integer, b As Integer, c As Long
For a = 2 To 1000
c = a ^ 2
b = Len(CStr(a))
If Right(CStr(c), b) = CStr(a) Then Print a, CStr(c)
Next

不用任何控件，代码如下：

Private Sub Form_Click()
Dim I As Integer, Pf As Long, Sti As String, Stp As String, N As Integer
For I = 2 To 1000
Pf = I ^ 2
Sti = Trim(Str(I))
Stp = Right(Trim(Str(Pf)), Len(Sti))
If Sti = Stp Then
N = N + 1
Print N; I; Pf
End If
Next
Print
Print "在2～1000中共有"; N; "个守形数。"
End Sub

运行结果是：
1 5 25
2 6 36
3 25 625
4 76 5776
5 376 141376
6 625 390625
在2～1000中共有6个守形数。

Dim i as integer
'先判断一位数的。
for i=2 to 9
if((i*i-i) mod 10= 0)then
print i,
end if
next i
'10不用判断了，明显不是，下面判断2位数的。凡是10的倍数的数全不是。
for i=11 to 99
if((i*i-i