Декабрь — 2013 — Pyatnitsev Home

VBA: Найти сумму и количество тех элементов массива, которые делятся на 5 и на 8 одновременно. Полученные значения вывести в одно окно сообщения

Pyatnitsev13.12.2013 0 Comments

Задача:

Дан динамический массив В(n), заполненный случайными числами с помощью генератора случайных чисел (элементы массива вывести в ячейки рабочего листа). Найти сумму и количество тех элементов массива, которые делятся на 5 и на 8 одновременно. Полученные значения вывести в одно окно сообщения.

Код:

Public Sub prog()
    Dim i As Integer
    Dim sum As Integer
    Dim count As Integer
    sum = 0
    count = 0
    n = InputBox("n=") ' Просим ввести n - размерность массива.
    ReDim B(n)
    Cells.Value = ""
    Cells.Interior.ColorIndex = -4142
    For i = 1 To n
        B(i) = Int((0 - 100 + 1) * Rnd + 100)
        If ((B(i) Mod 5 = 0) And (B(i) Mod 8 = 0)) Then
            sum = sum + B(i)
            count = count + 1
            Cells(1, i).Interior.Color = vbGreen
        End If
        Cells(1, i).Value = B(i) ' Печать в ячейку
    Next i
    MsgBox ("Сумма = " + CStr(sum) + " Количество = " + CStr(count))
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Public Sub prog()

Dim i As Integer

Dim sum As Integer

Dim count As Integer

sum = 0

count = 0

n = InputBox("n=") ' Просим ввести n - размерность массива.

ReDim B(n)

Cells.Value = ""

Cells.Interior.ColorIndex = -4142

For i = 1 To n

B(i) = Int((0 - 100 + 1) * Rnd + 100)

If ((B(i) Mod 5 = 0) And (B(i) Mod 8 = 0)) Then

sum = sum + B(i)

count = count + 1

Cells(1, i).Interior.Color = vbGreen

End If

Cells(1, i).Value = B(i) ' Печать в ячейку

Next i

MsgBox ("Сумма = " + CStr(sum) + " Количество = " + CStr(count))

End Sub

Continue reading →

VBA: Найти сумму и количество элементов массива, остаток от деления которых на 2 равен 3

Pyatnitsev13.12.2013 0 Comments

Глупая задача…

Дан динамический массив А(n), заполненный случайными числами с помощью генератора случайных чисел (элементы массива вывести в ячейки рабочего листа). Найти сумму и количество элементов массива, остаток от деления которых на 2 равен 3. Полученные значения вывести в одно окно сообщения.

Ни одно число не будет подходить под условие задачи, но решение есть.

Public Sub sum1()
    Dim i As Integer
    Dim sum As Integer
    Dim count As Integer
    sum = 0
    count = 0
    n = InputBox("n=") ' Просим ввести n - размерность массива.
    ReDim arr(n)
    Cells.Value = ""
    Cells.Interior.ColorIndex = -4142
    For i = 1 To n
        arr(i) = Int((0 - 100 + 1) * Rnd + 100)
        If (arr(i) Mod 2 = 0) Then
            sum = sum + arr(i)
            count = count + 1
            Cells(1, i).Interior.Color = vbGreen
        End If
        Cells(1, i).Value = arr(i) ' Печать в ячейку
    Next i
    MsgBox ("Сумма = " + CStr(sum) + " Количество = " + CStr(count))
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Public Sub sum1()

Dim i As Integer

Dim sum As Integer

Dim count As Integer

sum = 0

count = 0

n = InputBox("n=") ' Просим ввести n - размерность массива.

ReDim arr(n)

Cells.Value = ""

Cells.Interior.ColorIndex = -4142

For i = 1 To n

arr(i) = Int((0 - 100 + 1) * Rnd + 100)

If (arr(i) Mod 2 = 0) Then

sum = sum + arr(i)

count = count + 1

Cells(1, i).Interior.Color = vbGreen

End If

Cells(1, i).Value = arr(i) ' Печать в ячейку

Next i

MsgBox ("Сумма = " + CStr(sum) + " Количество = " + CStr(count))

End Sub

Файл Excel с этим кодом

Про погоду и массивы

Pyatnitsev06.12.2013 0 Comments

Такая школьная простенькая задачка…
Условие:

Пусть в массиве из 12 компонент хранится количество осадков в каждом месяце. Требуется напечатать таблицу из трех столбцов, где для каждого месяца вывести его номер, количество осадков в нем, отклонение количества осадков в этом месяце от средне годового.

Continue reading →