Question

求VB大神告诉一下 非常感谢

求四位平方数的个数 个位和百位数相同 十位与个位数相同 是某一个二位数的平方

题目如上，这个怎样编程。非常感谢

Answer 1

Dim x As Long, n2 As Integer, n3 As Integer, n4 As Integer, k As Long
For x = 32 To 99
k = x ^ 2
n2 = Mid(k, 2, 1)
n3 = Mid(k, 3, 1)
n4 = Mid(k, 4, 1)
If n2 = n4 And n3 = n4 Then Print k
Next

Answer 2

Private Sub Form_Load()
Dim i As Integer
Dim k As Integer
Dim j As Integer
Dim shiwei As String
Dim baiwei As String
Dim gewei As String
Dim qianwei As String
Dim strshu As String
For i = 10 To 99
k = i * i
strshu = Trim(Str(k))
If Len(strshu) = 4 Then
qianwei = Mid(strshu, 1, 1)
baiwei = Mid(strshu, 2, 1)
shiwei = Mid(strshu, 3, 1)
gewei = Mid(strshu, 4, 1)
If (qianwei = shiwei) And (baiwei = gewei) Then
j = j + 1
End If
End If
Next i
Text1.Text = j
End Sub