Сформировать массив из строки

@Kostyan · Регистрация: 17.06.2011

Студворк — интернет-сервис помощи студентам

Задача: Задано целое натуральное число n, Сформулировать массив значения элементов которого будут цифры заданного числа.

Вот чет я намутил. А че не так без понятия.

P.S. А еще подскажите кто в курсе как открыть Visual Basic в Word 2007

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub lalalalala()
Dim inti As Integer
Dim intZ As Integer
Dim blny As Boolean
 
Dim intA() As Integer
Dim strm As String
Dim intS As Integer
Dim lngh As Long
  For intS = 0 To 2
    strm = InputBox("введите цифры")
    blny = IsNumeric(strm)
    If blny = True Then
    lngh = Len(strm)
    ReDim intA(lngh - 1)
  Exit For 'выход из цикла
    Else
    intZ = intZ + 1 'считывание номера неудачной попытки
     MsgBox ("ошибка, введите цифры,попыток осталось:" + str(3 - intZ)) 'вывод сообщения о ошибке
       End If
       
       For inti = 0 To lngh - 1
       intA(inti) = CInt(Mid(strm, inti + 1, 1)) 'запись в массив числа по отдельности
       Debug.Print "fount элемент" & inti & "="; intA(inti) & Chr(10) & Chr(13) 'вывод
     Next inti
     
   Next intS
  Exit Sub
 
End Sub

Памирыч · 28.09.2011, 18:52

Не по теме:

Alex77755, у тебя какой то слишком перерусифицированный VB :D

@Alex77755 · 28.09.2011, 20:06

Не по теме:

Памирыч,
Всё может быть.
Но, ведь, работает!

@Kostyan · 29.09.2011, 06:38 **[ТС]**

ну <вырезано> че я сделаю если не работает? смысл врать?

Комментарий модератора

Мат запрещен

@Alex77755 · 29.09.2011, 10:11

Имена сравнил со своими?

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

Памирыч
	28.09.2011, 18:52
	Не по теме: Alex77755, у тебя какой то слишком перерусифицированный VB :D 1

@Alex77755
	28.09.2011, 20:06
	Не по теме: Памирыч, Всё может быть. Но, ведь, работает! 1