ВУЗ:
Составители:
Рубрика:
55
ЛистФамилии5.Clear
ТекстКоличествоСтудентов.Text = "15"
ТекстКоличествоЭкзаменов.Text = "5"
m = CInt(ТекстКоличествоСтудентов.Text)
n = CInt(ТекстКоличествоЭкзаменов.Text)
ReDim a(m, n)
ReDim b(m)
ReDim c(m)
c(1) = "Иванов"
c(2) = "Петров"
c(3) = "Сидоров"
c(4) = "Бунин"
c(5) = "Платонов"
c(6) = "Пушкин"
c(7) = "Лермонтов"
c(8) = "Достоевский "
c(9) = "Горький "
c(10) = "Цветаева"
c(11) = "Гоголь "
c(12) = "Ахматова"
c(13) = "Явлинский "
c(14) = "Жириновский "
c(15) = "Шандыбин"
For i = 1 To m
sum = 0
ЛистОценки .AddItem c(i)
For j = 1 To n
50 a(i, j) = Round(Rnd() * 5)
If a(i, j) < 2 Or a(i, j) > 5 Then GoTo 50
ЛистОценки .AddItem a(i, j)
sum = sum + a(i, j)
Next j
ЛистОценки .AddItem ""
sr = sum / n
b(i) = sr
ЛистСредБаллы .AddItem c(i) & " " & b(i)
Next i
k = 1
max = b(1)
l = 1
min = b(1)
For i = 2 To m
If b(i) > max Then max = b(i): k = i
If b(i) < min Then min = b(i): l = i
Next i
55 Л ис тФ ам илии5.Clear Т екс тК олич ес твоС ту дентов.Text = "15" Т екс тК олич ес твоЭ кзам енов.Text = "5" m = CInt(Т екс тК олич ес твоС ту дентов.Text) n = CInt(Т екс тК олич ес твоЭ кзам енов.Text) ReDim a(m, n) ReDim b(m) ReDim c(m) c(1) = "И ванов" c(2) = "П етров" c(3) = "С идоров" c(4) = "Б у нин" c(5) = "П латонов" c(6) = "П у ш кин" c(7) = "Л ерм онтов" c(8) = "Д ос тоевс кий " c(9) = "Г орь кий " c(10) = "Ц ветаева" c(11) = "Г оголь " c(12) = "Ах м атова" c(13) = "Я влинс кий " c(14) = "Ж ириновс кий " c(15) = "Ш анды бин" For i = 1 To m sum = 0 Л ис тО ценки.AddItem c(i) For j = 1 To n 50 a(i, j) = Round(Rnd() * 5) If a(i, j) < 2 Or a(i, j) > 5 Then GoTo 50 Л ис тО ценки.AddItem a(i, j) sum = sum + a(i, j) Next j Л ис тО ценки.AddItem "" sr = sum / n b(i) = sr Л ис тС редБ аллы .AddItem c(i) & " " & b(i) Next i k=1 max = b(1) l=1 min = b(1) For i = 2 To m If b(i) > max Then max = b(i): k = i If b(i) < min Then min = b(i): l = i Next i
Страницы
- « первая
- ‹ предыдущая
- …
- 53
- 54
- 55
- 56
- 57
- …
- следующая ›
- последняя »