Посчитать количество одинаковых чисел в массиве - VB

Узнай цену своей работы

Формулировка задачи:

Беда такая, не могу посчитать количество одинаковых элементов в массиве, всегда получается 0, код такой:
Знаю, что проблема в последнем цикле. Что не так? Подскажите, буду благодарен

Решение задачи: «Посчитать количество одинаковых чисел в массиве»

textual
Листинг программы
Private Sub Command1_Click()
Dim X(100) As Variant, i As Integer
Dim n As Variant, k As Variant
Picture1.Cls
Picture2.Cls
Randomize
For i = 1 To 100
    X(i) = Int(Rnd * 11) + 3
    Picture1.Print X(i) & vbTab;
    If i Mod 10 = 0 Then Picture1.Print
Next
's = " " & Join(X, "  ") & " " - ЭТО ЗАЧЕМ?
n = InputBox("Введите число от 3 до 13", "Ввод данных")
 
For i = 1 To 100
'    k = 0 - И ЭТО ПОЧЕМУ?
    If X(i) = Val(n) Then
        k = k + 1
    End If
Next
Picture2.Print "В массиве " & k & " чисел " & n;
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.077 из 5
Похожие ответы