Найти количество элементов массива, которые меньше или равны 10 - VB
Формулировка задачи:
Доброго дня, помогите решить задачку: Найти колличество элементов в массиве, которые меньше или равные 10. Огромное спасибо!!!
Задачка подобная этой (Найти максимум среди элементов массива)
Решение задачи: «Найти количество элементов массива, которые меньше или равны 10»
textual
Листинг программы
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Mass(0) Dim N = 0 If TextBox1.Text = "" Then ReDim Mass(0) Else ReDim Mass(CInt(TextBox1.Text)) End If If Mass.Length - 1 >= Split(TextBox2.Text, " ").Length - 1 Then For i = 0 To Split(TextBox2.Text, " ").Length - 1 Step 1 Mass(i) = Split(TextBox2.Text, " ")(i) MsgBox(Mass(i)) Next Else For i = 0 To Mass.Length - 1 Step 1 Mass(i) = Split(TextBox2.Text, " ")(i) MsgBox(Mass(i)) Next End If For i = 0 To Mass.Length - 1 Step 1 If Mass(i) <= 10 Then N = N + 1 End If Next TextBox3.Text = N N = 0 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д