vb编程用函数编写求10-99之间的同构数

Private Sub Command1_Click()
Dim i As Long

Print " 以下为10至99之间的同构数"
For i = 10 To 99
If TG(i) Then Print i
Next
End Sub

Function TG(N As Long) As Boolean
Dim j As Long

j = Len(CStr(N))
If N = CLng(Right(CStr(N * N), j)) Then
TG = True
Else
TG = False
End If
End Function

很简单,仅仅加个按钮,单击按钮显示结果
Private Sub Command1_Click()
Dim i
Print "10-99之间的同构数"
Print
For i = 10 To 99
If i Mod 10 = i ^ 2 Mod 10 Then Print i & "*" & i & "=" & i ^ 2
Next i
End Sub