|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.02.2018, 14:39 | #1 |
Новичок
Джуниор
Регистрация: 10.02.2018
Сообщений: 1
|
Как сделать вывод всех значений в одном окошке?
Есть задачка: Среди всех трехзначных чисел выбрать и вывести те, которые делятся на шесть без остатка.
Вот код: Sub work4b_variant6() Dim x As Integer For x = 100 To 999 If x Mod 6 = 0 Then MsgBox (x) Next x End Sub Вполне работает, но тут вывод выскакивает каждый раз с новым значением, а я хочу в одно окошечко в столбец все числа вывести, я понимаю что логично будет MsgBox опустить вниз после Next, но не понимаю что тогда писать после Then =)) Вторая задачка, хочу чтобы меня проверили: Дано целое число k. Найти произведение целых чисел, больших трех и меньших k Вот код: Sub work4a_variant6() Dim k, s, i As Integer k = Val(InputBox("vvedite k")) s = 4 For i = 4 To k - 1 s = s * i Next i MsgBox ("result=" & s) End Sub Тут почему то приход в голову мысля что s=4 это неправильно |
10.02.2018, 14:57 | #2 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
10.02.2018, 16:28 | #3 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
for x = 100 to 999
if x mod 6 = 0 then s = s & " " x next msgbox s *********************************** ************* if k-1 > 3 then s = 1
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывод всех значений из базы, которые удовлетворяют условию | Grozglaz | Microsoft Office Excel | 30 | 16.12.2013 01:17 |
вывод всех возможных значений в примечании отчета | Natasha63 | Microsoft Office Access | 1 | 16.12.2012 17:23 |
Как запретить выбор одинаковых значений из списка в одном столбце? | Santik | Microsoft Office Excel | 1 | 21.04.2012 16:37 |
Вывод всех значений в подчиненной форме | s8259 | Microsoft Office Access | 4 | 29.09.2011 12:52 |
Вывод всех значений.. | ZveRN | JavaScript, Ajax | 0 | 06.11.2010 12:26 |