Visual Basic. Практика. Ищенко В.А - 55 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

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

Страницы