Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Bebnikov_Nikita
0 / 0 / 0
Регистрация: 11.04.2018
Сообщений: 27
#1

Посчитать количество элементов массива, равных 3

24.04.2018, 06:16. Просмотров 120. Ответов 2
Метки нет (Все метки)

Нужно ввести массив с клавиатуры и подсчитать все введенные элементы равные 3 (т.е я ввел 5 раз число 3 и прога должна посчитать сколько чисел 3 было введено), но в место этого, у меня выводит 0. Ввод работает, проблема в цикле, но что-то я не пойму где и как.
Заранее спасибо.
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
26
27
28
Sub Mas4()
Dim i, j, k, A(1 To 5, 1 To 5) As Integer
n = InputBox("Введите кол-во строк n")
m = InputBox("Введите кол-во столбцов m")
With ActiveSheet
For i = 1 To n
For j = 1 To m
Worksheets("Лист1").Cells(i, j) = CDbl(InputBox(" Введите " & j & " элементы " & i & " строки "))
Next j
Next i
 
For i = 1 To n
    For j = 1 To m
        A(i, j) = Cells(i, j)
    Next j
Next i
k = 0
For i = 1 To n
    For j = 1 To m
        If A(i, j) = 0 Then
            k = k + 1
        End If
    Next j
Next i
 
MsgBox " Кол-во элементов числа = 3:" & k
End With
End Sub

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2018, 06:16
Ответы с готовыми решениями:

Найти количество элементов массива равных заддоному числу
Найти количество элементов массива(массив динамический,одномерный)равных...

Найти количество элементов массива (массив динамический, одномерный), равных заданному числу
Найти количество элементов массива(массив динамический,одномерный) равных...

В одномерном массиве найти количество элементов, равных нулю
помогите написать программу

Определить количество строк матрицы, состоящих из равных элементов
Доброго времени суток, есть задачка, никак не могу сделать,жду вашей помощи. ...

Вывести данные о количестве элементов массива равных L
Проверьте пожалуйста задачу. Все ли правильно сделал по условию? Ввести...

2
Burk
456 / 338 / 100
Регистрация: 11.07.2014
Сообщений: 1,124
24.04.2018, 07:12 #2
строка 20
Visual Basic
1
2
If A(i, j) = 3 Then
            k = k + 1
0
snipe
2837 / 950 / 209
Регистрация: 07.08.2013
Сообщений: 2,348
24.04.2018, 07:35 #3
ох,
зачем так делать?
Цитата Сообщение от Bebnikov_Nikita Посмотреть сообщение
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim i, j, k, A(1 To 5, 1 To 5) As Integer
n = InputBox("Введите кол-во строк n")
m = InputBox("Введите кол-во столбцов m")
....
....
....
For i = 1 To n
    For j = 1 To m
        A(i, j) = Cells(i, j)
    Next j
Next i
такие грабли себе раскидали
массив у вас определен 5х5
и вы запрашиваете количество строк и столбцов
а если строк будет 20 и столбцов 20
то что - ошибка
далее
зачем
Visual Basic
1
2
3
4
5
With ActiveSheet
....
....
....
End With
если вы этим не пользуетесь

и последнее
зачем 3 группы по 2 цикла
вашу логику понять можно
в первой группе вводим значения
во второй переносим значения в массив
в третьей ищем количество совпадений

все это можно сделать в одной группе

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Mas4()
Dim i, j, k, A()
n = InputBox("Введите кол-во строк n")
m = InputBox("Введите кол-во столбцов m")
k=0
For i = 1 To n
For j = 1 To m
Worksheets("Лист1").Cells(i, j) = CDbl(InputBox(" Введите " & j & " элементы " & i & " строки "))
if Worksheets("Лист1").Cells(i, j)=3 then k=k+1
Next j
Next i
A()=Worksheets("Лист1").range(Cells(1,1),Cells(n,m)).Value 'эта строка как бы и не нужна но если далее нужен массив то ...пусть будет"
MsgBox " Кол-во элементов числа - 3: равно" & k
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2018, 07:35

Для массива из N целых чисел определить индексы элементов, равных минимальному
Помогите пожалуйста с решение задачи. Написать программу: Для массива из N...

Посчитать количество нулевых элементов в матрице
Помогите пожалуйста найти ошибку)))) срочно!! задача: посчитать количество...

Найти количество элементов массива значения которых лежат между средним арифметическим элементов массива и
Найти количество элементов массива A значения которых лежат между средним...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru