Определить количество студентов, сдавших зачет по кроссу, и вывести их фамилии - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.636 из 5
Похожие ответы