Как сделать вывод всех значений в одном окошке

Kechappu

Есть задачка: Среди всех трехзначных чисел выбрать и вывести те, которые делятся на шесть без остатка.Вот код:
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 это неправильно
1 ответ

Kechappu

Kechappu,
Sub work4b_variant6()
Dim x As Integer, s As String
For x = 100 To 999
  If x Mod 6 = 0 Then s = s & x & vbLf
Next x
MsgBox s
End Sub
приход в голову мысля что s=4 это неправильно
Да, так 4 входит в произведение дважды. Надо либо s=1 либо начинать цикл с 5.