С. отрезоконаде по ,очки а и в — коцыстандартный - вопрос №10056187 от иван1141 31.08.2020 01:31

Question

Информатика: С. отрезоконаде по ,очки а и в — коцыстандартный вводимя входного файласная выходного файта: стандартный выводограничение по времени: 1 секундаограничение по паліятіі.256 мегабайтвася – большой лобитель . сегодня, готовясь к очередной оцина наон наткнулся на следующую : «на координатной прямой отмечены точки д ротрезка. нужно найти количество целых точек, которые легкат на отрезке. точки а и воотрезок.вася захотел проверить, правильно ли он посчитат ответ на . напишите програх.которая по границам

иван1141 · Answer

Если только синтаксические ошибки убрать, то должно быть так:

Private Sub CommandButton1_Click()
    Dim A(1 To 5, 1 To 5) As Single
    Dim i As Integer, j As Integer, k As Integer
    Dim sr As String
    k = 0
    ListBox1.Clear
    For i = 1 To 5
        sr = ""
        For j = 1 To 5
            A(i, j) = i + 0.5 * j
            sr = sr + " " + Format(A(i, j), "0.000") + " "
            If (A(i, j) > 1) And (A(i, j) < 2.5) Then k = k + 1
        Next j
        ListBox1.AddItem (sr)
    Next i
    TextBox1.Text = Str(k)
End Sub

А если неверно запрограммировано, то надо знать, что и как должно делаться.