В свойстве формы нужно создать метод Form1_Click как на скрине в приложении
Объяснение:
using System;
using System.Windows.Forms;
namespace WindowsFormsApp1
{
public partial class Form1 : Form
{
private const int ButtonCount = 100; // Количество кнопок
private Button[] ButtonArray = new Button[ButtonCount];
public Form1()
{
InitializeComponent();
PlaceButtons();
}
private void PlaceButtons()
{
int x = 10;
int y = 10;
for (int i = 0; i < ButtonCount; i++)
{
ButtonArray[i] = new Button();
ButtonArray[i].Parent = Control.FromHandle(this.Handle);
ButtonArray[i].SetBounds(x, y, ButtonArray[i].Width, ButtonArray[i].Height);
ButtonArray[i].Click += Some_Button_Click;
ButtonArray[i].Text = "Кнопка " + (i + 1).ToString();
ButtonArray[i].Name = "B" + i.ToString();
ButtonArray[i].Show();
x += ButtonArray[i].Width + 10;
if ((x + ButtonArray[i].Width ) > this.Width) { y = y + ButtonArray[i].Height + 10; x = 10; }
}
}
private void Some_Button_Click(object sender, EventArgs e)
{
//throw new NotImplementedException();
int ButtonNumber = int.Parse(((Button)sender).Name.Substring(1));
if (ButtonNumber == ButtonCount - 1) return;
ButtonArray[ButtonNumber + 1].Enabled = false;
}
private void Form1_Click(object sender, EventArgs e)
{
for (int i = 0; i < ButtonCount; i++) ButtonArray[i].Enabled = true;
}
}
}
Program Proizvedenie; //Обчислити произведение элементов второго столбца таблиці
var Tabl: array[1..4, 1..6] of Integer; i, j, P: Integer;
begin
P:=1;
For i:=1 to 4 do
For j:=1 to 6 do
begin
Write('Введіть значення елемента масиву ');
Read(Tabl[i,j]); //заповнення масиву цілими числами
end;
For i:= 1 to 4 do
P:= P * Tabl[i,2]; //умножение элементов второго столбца
writeln('Произведение элементов второго столбца= ',P);//виведення відповіді
end. //Кінець програми
Объяснение:
Изменено имя программы и переменной (чтобы не путаться)
Начальное значение переменной теперь 1, т.к. при умножении на 1 произведение не меняется
Т.к. считаем произведение элементов второго столбца, то перебираем строки от 1 до 4 и считаем произведение элементов текущей строки во втором столбце
Комментарии изменены, где необходимо, но на русском
18.87.36(кбит) Надеюсь что правильно, но предупреждаю я не уверен на 100 процентов