Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VB6] Работа с записями

Автор: kledno 7.7.2011, 12:17

Уважаемый народ, может кто нибудь может накидать примерный код программы, чтоб мысль двинулась с места. целиком задание звучит так: Есть список абитуриентов (ФИО через пробел), средний бал аттестата и оценки на вступительных экзаменах по пяти предметам у каждого. Считая что проходной балл 23, определить станет ли аббитуриент студентом. Если да, то в графе "принят" поставить да, если нет, то нет. Вывод нужно сделать в виде таблицы. Для ввода использовать форму и элементы управления. В программе должны быть переменные типа запись. Заранее благодарен!

Автор: Akina 8.7.2011, 13:34

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: iff 8.7.2011, 14:02

Цитата(kledno @ 7.7.2011, 12:17

)

Вывод нужно сделать в виде таблицы

А ввод?

1. Запись объявляется так:

Код


Private Type Student
    FIO As String
    Mark As Single
    SubjMark(1 To 5) As Integer
    Result As Boolean
End Type

Здесь объявлен тип Student как запись с полями FIO - ФИО, Mark - ср. балл, SubjMark - оценки по пяти предметам Result - результат (принят / не принят).
Private нужно писать обязательно, если объявление идёт в коде формы, а не в отдельном модуле.
Объявление переменной типа Student:

Код


Dim Students(99) As Student

Для 100 студентов.

Код подсчёта:

Код


Dim I As Integer, J As Integer, S As Single
For I = 0 To 99
    S = 0
    For J = 1 To 5
        S = S + Students(I).SubjMark(J)
    Next J
    S = S / 5
    Students(I).Mark = S
    Students(I).Result = (S >= 23)
Next I

Автор: kledno 13.7.2011, 11:30

iff
Огромное спасибо за помощь! А как сделать отсортированный вывод по ФИО в табличном виде