Найти все симметричные натуральные числа (палиндромы) из промежутка от А до В - VB

Формулировка задачи:

Найти все симметричные натуральные числа (палиндромы) из промежутка от А до В. А и В задаются. Не знал с чего начать. Решил попробовать так, но выходит ошибка:

                    Листинг программы
                
 
                        
                          
                    
Function f(j)
Dim s As String
s = i
For j = 0 To Len(s) / 2
f(j) = Left(s, 1)
Next
End Function
Function q(k)
Dim s As String
s = i
For k = 0 To Len(s) / 2
f(k) = Right(s, 1)
Next
End Function
 
Private Sub Command1_Click()
Picture1.Cls
a = Val(Text1)
b = Val(Text2)
For i = a To b
If f(j) = f(k) Then
    Picture1.Print i
   Else
    Picture1.Print "ГЌГҐГІ ГІГ*ГЄГЁГµ Г·ГЁГ±ГҐГ«"
   End If
Next
End Sub

Решение задачи: «Найти все симметричные натуральные числа (палиндромы) из промежутка от А до В»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub main()
a = 0
b = 999
For i& = a To b
  If Is_Палиндром(i) Then Debug.Print i
Next i
End Sub
 
Function Is_Палиндром(X As Long) As Boolean
Dim i As Integer, s As String
s = CStr(X)
For i = 1 To Len(s) / 2
  If Mid$(s, i, 1) <> Mid$(s, Len(s) - i + 1, 1) Then Exit Function
Next i
Is_Палиндром = True
End Function

Оцени полезность:

8 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы