Посчитать количество одинаковых чисел в массиве - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д