Всем привет!)Нужно составить программу в Excel или Mathcad или VBA. Программа должны...

Question

Всем привет!)
Нужно составить программу в Excel или Mathcad или VBA. Программа должны выводить в массив перечень чисел, кратных 2,3,5. Диапазон вывода чисел - от нуля, а верхняя граница указывается пользователем.
Буду очень признателен, если кто-то мне поможет.

Answer 1

Dim i as Integer
Dim n as Integer
n=InputBox("Введите верхнюю границу")

Dim Massiv() As Integer
Dim s As Integer
For i = 0 To n
    If (i Mod 2) = 0 Or (i Mod 3) = o Or (i Mod 5) = 0 Then ReDim Preserve Massiv(s): Massiv(s) = i: s = s + 1
Next

Comments

По заданию всё выводит=)

---

Да, в цикле допиши
Range(CStr(CStr(Chr(65 + i)) & CStr(i))).Select
ActiveCell.FormulaR1C1 = Massiv(s)

---

Может проблема в том, что надо писать не в Excel, а в VBA?

---

Private Sub CommandButton1_Click()
Dim i As Integer
Dim n As Integer
n = InputBox("Ââåäèòå âåðõíþþ ãðàíèöó")

Dim Massiv() As Integer
Dim s As Integer
For i = 0 To n
If (i Mod 2) = 0 Or (i Mod 3) = o Or (i Mod 5) = 0 Then
ReDim Preserve Massiv(s)
Massiv(s) = i
s = s + 1
Range("A" & CStr(s)).Select
ActiveCell.FormulaR1C1 = Massiv(s - 1)
End If
Next

End Sub

---

Не хочу заливать..
Проверил - работает..

Про Эксел - смешно=)

---

Private Sub CommandButton1_Click()
Dim i As Integer
Dim n As Integer
n = InputBox("Введите границу")

Dim Massiv() As Integer
Dim s As Integer
For i = 0 To n
If (i Mod 2) = 0 Or (i Mod 3) = 0 Or (i Mod 5) = 0 Then
ReDim Preserve Massiv(s)
Massiv(s) = i
s = s + 1
Range("A" & CStr(s)).Select
ActiveCell.FormulaR1C1 = Massiv(s - 1)
End If
Next

End Sub

---

спасибо огромное, работает))))

---

Дали второе задание, исходя из этого.
Нужно составить программу, которая так же выводит числа, только главное условие - чтоб выводимые числа делились и на 2, и на 3, и на 5

---

Расчет нужно произвести по формуле 2^a*3^b*5^c=выводимые числа
a,b,c - целые натуральные числа от нуля