Точки с координатами (x1, y1) и (x2, y2) являются концами отрезка. определить, пересекает ли этот отрезок график функции f(x)=х. если пересекает, то найти расстояние от каждой точки до данной прямой. если не пересекает, то определить, принадлежит ли этот отрезок прямой, параллельной данной, или прямой, ей перпендикулярной.

На языке Java. Программа складывает и отрицательные и положительные числа.

class SumNum{
 public static void main(String args[]){
  try{
   long sumNum=0,numSum=new Long(new java.io.BufferedReader(new java.io.InputStreamReader(System.in)).readLine());
   do sumNum+=numSum;while((numSum>0?--numSum:++numSum)!=0);System.out.print("Результат "+sumNum);
  }catch(java.io.IOException io){
   System.out.println(" - Ошибка ввода!\n"); main(null);
  }catch(NumberFormatException nf){
   System.out.println(" - Введите целочисленное значение!\n"); main(null);
  }
 }
}

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

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

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