Выведите числа на экран в прямом и обратном порядке по 6 чисел в строке

@Чак Норрис · Регистрация: 21.03.2012

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

Массив состоит из 18 случайных двузначных чисел. Выведите их на экран в прямом и обратном порядке по 6 чисел в строке.

@chealbert · 21.03.2012, 19:33

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim a(18) as integer
Dim s as string
 
Sub Main    
    For i=1 to 18
        a(i)=int(rnd*100)   
    Next i
    s=""
    For i=1 to 18
        s=s+a(i)+" "
        if i mod 6=0 then s=s+chr(13)
    Next i
    msgbox s
    s=""
    For i=18 to 1 step -1
        if i mod 6=0 then s=s+chr(13)
        s=s+a(i)+" "        
    Next i
    msgbox s
End Sub

@basssot2 · 21.03.2012, 19:45

Этот код точно для VB6 ?

@chealbert · 21.03.2012, 20:18

Сделал для VBА любой версии, это можно запустить в MSOffice,
а вам нужна программа с оконной формой, которая запускается exe-файлом? или как? поточнее надо указывать в какой форме результат...
Можна из этого делать, только вывод будет не при помощи msgbox, а используя объекты textbox или label.

@Чак Норрис · 21.03.2012, 20:20 **[ТС]**

Какие элементы нужно добавить в окно программы?

Добавлено через 1 минуту
Нужен exe ,но вывод что бы был массивами

@chealbert · 21.03.2012, 20:30

Добавте в форму объекты Label1 и Label2 например, растяните квадратики так чтобы 18 чисел влезло. Добавьте кнопку, дважды на ней щелкните и в окне введите текст вышеизложенной программы, только вместо msgbox s нужно Label1.Caption = s, а второй раз Label2.Caption = s

SoftIce · 21.03.2012, 20:38

Ничего не надо добавлять, только кнопку

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
Private Sub Command1_Click()
Dim a(1 To 18) As Integer
Dim i As Integer, j As Integer
 
        For i = 1 To 18
                a(i) = Int(Rnd * 100)
        Next i
       
        
        For i = 1 To 3
             For j = 1 To 6
                 Print vbTab; a(i * j);
             Next
             Print
        Next i
        Print
        
        For i = 3 To 1 Step -1
             For j = 6 To 1 Step -1
                 Print vbTab; a(i * j);
             Next
             Print
        Next i
 
End Sub

@Чак Норрис · 21.03.2012, 20:47 **[ТС]**

chealbert, Vb выдает Excepted End Sub, возможно проблема в sub Main?

Добавлено через 5 минут
SoftIce, А ты шаришь, спасибо!

@Апострофф · 21.03.2012, 22:06

Сообщение от SoftIce

Visual Basic
1
Print vbTab; a(i * j);

?
Так правильнее, мне кажется

Visual Basic
1
Print vbTab; a((i-1)*6+j);

Надо же по порядку выводить и все эл-ты массива, а не кратные i и j одновременно

SoftIce · 21.03.2012, 22:32

Чак Норрис, прав как всегда Апострофф .

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Чак Норрис 0 / 0 / 0 Регистрация: 21.03.2012 Сообщений: 3

	Выведите числа на экран в прямом и обратном порядке по 6 чисел в строке 21.03.2012, 19:03. Показов 4497. Ответов 9 Метки нет (Все метки) Массив состоит из 18 случайных двузначных чисел. Выведите их на экран в прямом и обратном порядке по 6 чисел в строке. 0

@basssot2 0 / 0 / 0 Регистрация: 14.03.2012 Сообщений: 15
	21.03.2012, 19:45
	Этот код точно для VB6 ? 0

@chealbert 257 / 143 / 85 Регистрация: 13.10.2011 Сообщений: 454
	21.03.2012, 20:18
	Сделал для VBА любой версии, это можно запустить в MSOffice, а вам нужна программа с оконной формой, которая запускается exe-файлом? или как? поточнее надо указывать в какой форме результат... Можна из этого делать, только вывод будет не при помощи msgbox, а используя объекты textbox или label. 0

@Чак Норрис 0 / 0 / 0 Регистрация: 21.03.2012 Сообщений: 3
	21.03.2012, 20:20 [ТС]
	Какие элементы нужно добавить в окно программы? Добавлено через 1 минуту Нужен exe ,но вывод что бы был массивами 0

@chealbert 257 / 143 / 85 Регистрация: 13.10.2011 Сообщений: 454
	21.03.2012, 20:30
	Добавте в форму объекты Label1 и Label2 например, растяните квадратики так чтобы 18 чисел влезло. Добавьте кнопку, дважды на ней щелкните и в окне введите текст вышеизложенной программы, только вместо msgbox s нужно Label1.Caption = s, а второй раз Label2.Caption = s 0

@Чак Норрис 0 / 0 / 0 Регистрация: 21.03.2012 Сообщений: 3
	21.03.2012, 20:47 [ТС]
	chealbert, Vb выдает Excepted End Sub, возможно проблема в sub Main? Добавлено через 5 минут SoftIce, А ты шаришь, спасибо! 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	21.03.2012, 22:32
	Чак Норрис, прав как всегда Апострофф . 0