Private Sub Command1_Click()
    Dim n As Integer
    n = Val(txtText.Text)
    Dim Mass( 1  To n,  1  To n,  1  To n)
    
    


End Sub

Private Sub FlexGrid_SelChange()
    txtText.Text = FlexGrid.Text
End Sub

Function GetCellIndex(MSFlexGrid As MSFlexGrid, row As Integer, col As Integer)
    GetCellIndex = row * MSFlexGrid.Cols + col
End Function

Private Sub txtText_KeyPress(KeyAscii As Integer)
    
     
    
    
    If a <= b <= c Then
        If KeyAscii =  13  Then FlexGrid.Text = txtText.Text
    End If
End Sub

Private Sub txtRows_KeyPress(KeyAscii As Integer)
    Dim n As Integer
    Dim i As Integer

    n = Val(txtRows.Text)

    If KeyAscii =  13  Then
        For i =  1  To n
            FlexGrid.AddItem i
        Next i
    FlexGrid.Rows = CInt(txtRows.Text +  1 )
    End If

End Sub

Private Sub Form_Load()

    FlexGrid.Rows =  1 
    FlexGrid.Cols =  3 
    FlexGrid.FormatString = "<№|a|b|c"
    FlexGrid.ColWidth( 0 ) =  300 
    FlexGrid.ColWidth( 1 ) =  1000 
    FlexGrid.ColWidth( 2 ) =  1000 
    FlexGrid.ColWidth( 3 ) =  1000 

End Sub

For i =  1  To n

a = 'значение из n строки 1го стоблца
b = 'значение из n строки 2го столбца
с = 'значение из n строки 3го столбца

If a <= b <= c Then
                               
    If c >= (a + b) Then
        ListBox.AddItem = i 'заносим в Листбокс какой у нас i По счету, т.е какая тройка по номеру
    End If

Else
    MsgBox() = ("Введите числа по возрастанию")
End If

Next i

Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer

n = Val(txtRows.Text)

For i =  1  To n
a = Val(FlexGrid.TextArray(GetCellIndex(i,  1 )))
b = Val(FlexGrid.TextArray(GetCellIndex(i,  2 )))
c = Val(FlexGrid.TextArray(GetCellIndex(i,  3 )))

ListBox.AddItem a & b & c
Next i

End Sub

Function GetCellIndex(MSFlexGrid As MSFlexGrid, row As Integer, col As Integer)
    GetCellIndex = row * MSFlexGrid.Cols + col
End Function

Option Explicit

Private Sub FlexGrid_SelChange() 'Процедура - При выделении ячейки таблицы ее содержимое записывается в TextBox
    txtText.Text = FlexGrid.Text
End Sub

Private Sub txtRows_KeyPress(KeyAscii As Integer) ' Нельзя ввести больше 10ти т.к ввел одну цифру..
    'другую набираешь она создает еще кучу строк
    Dim i As Integer
    Dim n As Integer
    
    n = (Val(txtRows.Text))
    
    For i =  1  To n 'Чтобы в первом столбце номера прописались
        FlexGrid.AddItem i
    Next i

End Sub

Private Sub txtText_KeyPress(KeyAscii As Integer) 'Взял из статьи про FlexGrid
    If KeyAscii =  13  Then FlexGrid.Text = txtText.Text
End Sub

'НИЖЕ ПРОБЛЕМ ВРОДЕ НЕБЫЛО!!!!! 

Private Sub Form_Load() 'При зарузке формы
    FlexGrid.Rows =  1  ' Устанавливаем начальное количество строк
    FlexGrid.Cols =  3  ' Устанавливаем начальное количество столбцов

    FlexGrid.FormatString = "<№|a|b|c" ' Устанавливаем заголовки столбцов

    FlexGrid.ColWidth( 0 ) =  400  ' Устанавливаем ширину столбцов
    FlexGrid.ColWidth( 1 ) =  1295 
    FlexGrid.ColWidth( 2 ) =  1295 
    FlexGrid.ColWidth( 3 ) =  1295 
End Sub

Private Sub Command2_Click() 'Нажатие на кнопку "Заполнить таблицу рандомными значениями"
    Dim n As Long
    Dim i As Long
    Dim a As Double
    Dim b As Double
    Dim c As Double

n = Val(txtRows.Text) 'Присваиваем n - число троек

For i =  1  To n 'Проход цикла от 1 до колличества n троек
    
    'Цикл Do - Пока условие выхода  Until Не будет выполняться, цикл будет продолжаться
    Do
        Randomize 'Функция генерирования случайных чисел
        
        FlexGrid.TextMatrix(i,  1 ) = Int(Rnd *  10 ) ' Записываем в строчку i в первый столбец случайное число
        FlexGrid.TextMatrix(i,  2 ) = Int(Rnd *  10 ) ' Записываем в строчку i во второй столбец случайное число
        FlexGrid.TextMatrix(i,  3 ) = Int(Rnd *  10 ) ' Записываем в строчку i в третий столбец случайное число
        
        a = Val(FlexGrid.TextArray(( 1  + i *  4 ))) 'Присваиваем поочередно переменным Значения из ячейки в таблице
        b = Val(FlexGrid.TextArray(( 2  + i *  4 )))
        c = Val(FlexGrid.TextArray(( 3  + i *  4 )))
    
    Loop Until a < b And a < c And b < c ' Проверка нашего условия, если выполнилось, идем к For
Next i

End Sub

Private Sub Command1_Click() ' Процедура выполняется при нажатии на кнопку "Определить тройки"
    Dim n As Long
    Dim i As Long
    Dim a As Double
    Dim b As Double
    Dim c As Double

    n = Val(txtRows.Text) 'Присваиваем n - число троек

For i =  1  To n
    'Присваиваем поочередно переменным Значения из ячейки в таблице
    '(1 + i * 4) Так расчитывается индекс произвольной ячейки где 1 номер столбца, 4 общее кол-во столбцов
    a = Val(FlexGrid.TextArray(( 1  + i *  4 )))
    b = Val(FlexGrid.TextArray(( 2  + i *  4 )))
    c = Val(FlexGrid.TextArray(( 3  + i *  4 )))
    
    If a <= b And b <= c And a <= c Then 'Проверяем условие чтобы a<=b<=c
        If c >= (a + b) Then ' Проверяем условие чтобы с>=(a+b)
            ListBox.AddItem "Тройка под номером -  " & i
        End If
    Else
        ListBox.AddItem "Тройка под номером -  " & i & " - Неверно ввели тройку"
    End If
Next i

End Sub

Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim a As Single
Dim b As Single
Dim c As Single

n = Val(InputBox("Введите n"))

For i =  1  To n

a = Val(InputBox("Введите a"))
b = Val(InputBox("Введите b"))
c = Val(InputBox("Введите c"))

    If a <= b And b <= c Then
        If c >= (a + b) Then
            Print "Тройка под номером-", i; "Годная"
        Else
            Print "Тройка под номером-", i, "Не годная"
        End If
        
    Else
        Print "Введите правильно", i; "Тройку"
    End If
Next i

End Sub

Option Explicit

Private Sub Command_Click()

Dim x As Single
Dim y As Double
Dim Mass() As Single
Dim n As Integer
Dim i As Integer

n = Val(InputBox("Колличество чисел в последовательности"))
ReDim Mass(n)
y =  1 
For i =  1  To n
    Mass(i) = Val(InputBox("Введите " & i & " Число"))
Next i

For i =  1  To n
    If Mass(i) <  10  Then
        x = x + Mass(i)
    End If
    If Mass(i) >  25  Then
        y = y * Mass(i)
    End If
Next i
    
    Print "Сумма-", x
    Print "Произведение-", y

End Sub