Определить количество студентов, сдавших зачет по кроссу, и вывести их фамилии - VB
Формулировка задачи:
Здравствуйте! Помогите составить код.
Двумерный массив содержит фамилии студентов и результаты кросса в секундах(фамилии введите произвольные, а время задайте с помощью функции случайного числа в диапазоне [60,100]). Определить количество студентов, сдавших зачет, и вывести их фамилии. Зачетное время не превышает 80 сек. Результат вывести в текстовое окно.
Наверное очень сложно да?
Решение задачи: «Определить количество студентов, сдавших зачет по кроссу, и вывести их фамилии»
textual
Листинг программы
Private Type Student familia() As String vremya() As Integer End Type Private Sub Command1_Click() Dim Fam, Student As Student, Sdali As String, Nesdali As String Dim Zachotnoe_vremya As Integer, i As Integer, n As Integer Fam = Array("Иванов", "Петров", "Сидоров", "Путин", "Медведев") Randomize Zachotnoe_vremya = 80: n = UBound(Fam) + 1 ReDim Student.familia(1 To n), Student.vremya(1 To n) For i = 1 To n Student.familia(i) = Fam(i - 1) Student.vremya(i) = Int(Rnd * 41) + 60 Next i For i = 1 To n If Student.vremya(i) < Zachotnoe_vremya Then Sdali = Sdali + Student.familia(i) + Str(Student.vremya(i)) + " " Else Nesdali = Nesdali + Student.familia(i) + Str(Student.vremya(i)) + " " End If Next i MsgBox "Сдали - " & Sdali & vbCrLf & _ "Несдали - " & Nesdali, vbInformation End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д