VB6.0 Люди умоляю кто знает!

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

Кто разбирается умоляю помогите...! хотя бы с одной задачей тема

Обработка чисел и числовых последовательностей.

обработка чисел.

Дано натуральное число.Сформировать число с обратным порядком следования цифр и определить,является ли сформированное число точным квадратом. 2

Обработка числовой последовательности с заданным кол-вом элементов.

Найти все 4-значные натуральные числа, не превосходящие заданного числа N, которые делятся на каждую из своих цифр. Если таких чисел нет, выдать об этом сообщение. 3

Обработка числовой последовательности с неопределенным кол-вом элементов

. Определить последнее 2-значное число вводимой последовательности с max суммой цифр. Кол-во элементов последовательности не определено.

Решение задачи: «VB6.0 Люди умоляю кто знает!»

textual
                            Листинг программы 
                        

                            Sub Task_3()
Do
    vRes = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЅГ«ГҐГ¬ГҐГ*ГІ ГЇГ®Г±Г«ГҐГ¤Г®ГўГ*ГІГҐГ«ГјГ*Г®Г±ГІГЁ")
    If Len(vRes) > 0 Then sStr = sStr & vRes & ", "
    If Len(vRes) = 2 Then
        vTmp = (vRes \ 10) + (vRes Mod 10)
        If vTmp > vMax Then vMax = vRes
    End If
Loop While Len(vRes) <> 0
MsgBox sStr & vbNewLine & vMax
End Sub
                        