VBA

[Zhene4ka2607]

задачи...

1. На ввод в программу натурального числа из диапазона [1, 25] программа выводит это число и согласованное с ним слово «книга». Например, на ввод числа 1 программа выводит «1 книга», на ввод числа 2 – «2 книги» и т.д.

2. Матрица, К(m,m) состоит из нулей и единиц. Найти в ней номера (индексы) хотя бы одной строки или хотя бы одного столбца, не содержащих единицы, либо сообщить, что таковых нет.

3. В массиве A(k) много совпадающих элементов. Найти количество различных элементов в нем.

[Terran]

1. На ввод в программу натурального числа из диапазона [1, 25] программа выводит это число и согласованное с ним слово «книга». Например, на ввод числа 1 программа выводит «1 книга», на ввод числа 2 – «2 книги» и т.д.

Если потребуется, то подправьте:

Private Sub CommandButton1_Click()
Select Case Val(TextBox1.Text)
Case 1
Label1.Caption = TextBox1.Text + " Книга"
Case 21
Label1.Caption = TextBox1.Text + " Книга"
Case 22
Label1.Caption = TextBox1.Text + " Книги"
Case 23
Label1.Caption = TextBox1.Text + " Книги"
Case 24
Label1.Caption = TextBox1.Text + " Книги"
Case 25
Label1.Caption = TextBox1.Text + " Книг"
End Select
If Val(TextBox1.Text) > 4 And Val(TextBox1.Text) < 21 Then
Label1.Caption = TextBox1.Text + " Книг"
End If
If Val(TextBox1.Text) > 1 And Val(TextBox1.Text) < 5 Then
Label1.Caption = TextBox1.Text + " Книги"
End If
End Sub

[Zhene4ka2607]

Большое спасибо за помощь...

[Klop1234]

Решения этих трех задач у тебя имеются??
Пожалуйста мне очень очень нужно