Найти количество элементов массива, которые меньше или равны 10 - VB

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

Доброго дня, помогите решить задачку: Найти колличество элементов в массиве, которые меньше или равные 10. Огромное спасибо!!! Задачка подобная этой (Найти максимум среди элементов массива)

                    Листинг программы
                
 
                        
                          
                    
Private Sub cmd_click()
Dim n As Integer
Dim c() As Single
Dim max As Single
Dim i As Integer
n = CInt(txtn.Text)
ReDim c(n)
txtc.Text = ""
For i = 1 To n
c(i) = InputBox("Ввести c(" & i & ")=")
txtc.Text = txtc.Text & CStr(c(i)) & ","
Next i
max = c(1)
For i = 2 To n
If c(i) > max Then
max = c(i)
End If
Next i
txtmax.Text = CStr(max)
End Sub

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы