Найти количество элементов массива, которые меньше или равны 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

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


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

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

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