Какое условие я должен использовать?
Пересмотрите пример задачи № 3, прочитав десять (10) целых значений и сохранив эти значения в массиве. Определите и отобразите количество введенных простых чисел.
В чем заключается ошибка в моем коде?
Пожалуйста, помогите Т-Т
Что я уже пробовал:
Общественного Класса Form1
Частная суб обработчика button1_click(отправителя как объект, а равно EventArgs) обрабатывает кнопки button1.Щелчок
Dim MyArray(9), ctr как целое число
Dim j, k как целое число
Для ctr = от 0 до 9
MyArray(ctr) = InputBox("входной номер :")
Список listbox1.Предметы.Добавить(MyArray(ctr))
Следующий
Для j = 2 To (MyArray(ctr) - 1)
Если MyArray(ctr) Mod j = 0, то
k = k + 1
Конец, Если
Следующий
Текстовое поле textbox1.Текст = к
Конец Подводной Лодки
End Класса