Если только синтаксические ошибки убрать, то должно быть так:
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
А если неверно запрограммировано, то надо знать, что и как должно делаться.
Дано:
N=256
V=2400 байт=19200 бит
Найти:
K — ?
Решение:
V=K*I
I=log₂N
I=log₂256=8 бит
K=V/I
K=19200/8=2400
Ответ: 2400 точек
Program Program1;
var a,b,c,d:real;
begin writeln('Введите число 1'); readln(a); writeln('Введите число 2'); readln(b); writeln('Введите число 3'); readln(c); d:=a+b+c; writeln('a+b+c=',d);end.
Ответ:
Объяснение:
using System;
public class Program
{
public static void Main()
{
int[] A = new int[30];
var rand = new Random();
for(int i = 0; i < 30; i ++) // Заполняем в цикле массив случайными числами от 0 до 100
A[i] = rand.Next(0, 100);
int kolichestvo, summa;
kolichestvo = 0;
summa = 0;
for(int i = 0; i < 30; i ++) //цикл по элементам массива
{
if((A[i] % 5) == 0)// операция "%" - остаток от деления, если = 0 значит поделилось нацело, если не равно нулю, значит поделилось с остатком
{
if((A[i] % 3) != 0)
{
kolichestvo = kolichestvo + 1;
summa = summa + A[i];
}
}
}
Console.Write("Сумма: ");
Console.Write(summa);
Console.Write(" Количество: ");
Console.Write(kolichestvo);
}
}
На всем протяжении блок схемы N и так не меняется)
