Вывод чисел - VB (59290)
Формулировка задачи:
Вывести все числа, которые составлены из цифры только одного вида (например, 1111, 222, 9). Пример. Вход: 3 908 33 72 Выход: 33. (не могу составить, помогите плз)
Решение задачи: «Вывод чисел»
textual
Листинг программы
str = "..." 'исходная строка Arrstr() = Split(str) ' разбивка строки на отдельные числа и занесение их в массив For i = 0 To UBound(Arrstr) If Len(Arrstr(i)) > 1 And Arrstr(i) Mod CDbl(String(Len(Arrstr(i)), "1")) = 0 Then MsgBox (Arrstr(i)) 'перебор элементов массива и вывод чисел с одинаковыми цифрами Next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д