Поиск студента по структурам - VB

Формулировка задачи:

Почему не работает? Что тут не так?

For I = 0 To UBound(Students)
      If Students(I).FIO = "Петров" Then
        MsgBox "Запись найдена", vbInformation
      End If
    Next

Students это

Private Type Student    ' 72 байта
    FIO As String * 32
    Group As String * 8
    Faculty As String * 16
    Year As Long
    Score1 As Long
    Score2 As Long
    Score3 As Long
End Type
Dim Students() As Student, Init As Boolean

Решение задачи: «Поиск студента по структурам»

textual
                            Листинг программы 
                        

                            If Students(I).Score1 = 5 Then
            MsgBox "Есть", vbInformation
        End If
                        

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

6 голосов , оценка 3.5 из 5

Похожие ответы