Если только синтаксические ошибки убрать, то должно быть так:
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
А если неверно запрограммировано, то надо знать, что и как должно делаться.
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);
}
}
}