简单QBASIC问题

来源：百度知道 编辑：UC知道 时间：2024/06/06 06:17:04
寻找具有完全平方数，且不超过7位数码的回文数。所谓回文数是指这样的数，它的各位数码是左右对称的。例如121、676、94249等
帮忙编个程序 +++分大大的

下面是VB6的代码，QBASIC语法差不多，但算法是一致的。
Private Sub Form_Click()
Dim I As Long
Dim L As Integer
Dim A(7) As Integer
Cls
For I = 1 To 10 ^ 6
If Sqr(I) = Int(Sqr(I)) Then
L = Len(Str(I))
Select Case L - 1
Case 1
Print I;
Case 2
A(0) = I Mod 10
A(1) = I \ 10
If A(0) = A(1) Then Print I;
Case 3
A(0) = I Mod 10
A(1) = (I Mod 100) \ 10
A(2) = I \ 100
If A(0) = A(2) Then Print I;
Case 4
A(0) = I Mod 10
A(1) = (I Mod 100) \ 10
A(2) = (I Mod 1000) \ 100
A(3) = I \ 1000
If A(0) = A(3) And A(1) = A(2) Then Print I;
Case 5
A(0) = I Mod 10
A(1) = (I Mod 100) \ 10
A(2) = (I Mod 1000)