Обработка записей (структур)

@AlexKuchanskiy · Регистрация: 13.02.2013

Студворк — интернет-сервис помощи студентам

Вот условие.
Ввести информацию о10 студентах группы. Информация содержит фамилию, имя, отчество студента, год рождения, четыре оценки за экзамены последней сессии. Распечатать список студентов, упорядоченный по году рождения.

написал программу, но что-то не так

А вот мой код: (сортировал методом пузырька)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
Private Sub Form_Load()
Dim SutdentFIO(1 to 10)
Dim StudentSubjMarks$()
Dim BornDate(1 To 10) As Date
Dim Result As String
 
  SutdentFIO(1) = "Æóêîâà Äèàíà Îëåãîâíà"
   SutdentFIO(2) = "Áðåæíåâà Àëåíà Âèòàëüåâíà"
    SutdentFIO(3) = "Óëüÿíîâà Ìàðèÿ Ñòàíèñëàâîâíà"
     SutdentFIO(4) = "Ãàãàðèíà Ìèëåíà Àëåêñååâíà"
      SutdentFIO(5) = "Ëîìîíîñîâà Íàòàëüÿ Ïåòðîâíà"
      SutdentFIO(6) = "Òåðåêîâíà Íèêà Äåíèñîâíà"
     SutdentFIO(7) = "Ðàêîâñêàÿ Îëüãà Äìèòðèåâíà"
    SutdentFIO(8) = "Õàçàíîâà Ïîëèíà Ñåðãååâíà"
   SutdentFIO(9) = "Íèäçâåäñêàÿ Ðîçà Åâãåíüåâíà"
  SutdentFIO(10) = "Ìàëüöåâà Ñíåæàíà Âèêòîðîâíà"
         StudentSubjMarks(1) = "Èíôîðìàòèêà - 4" & vbCrLf & _
                             "Âûñøàÿ Ìàòåìàòèêà - 4 " & vbCrLf & _
                             "ÎÏÝÇ - 4" & vbCrLf & _
                             "ÒÏÁÄ - 3"
         StudentSubjMarks(2) = "Èíôîðìàòèêà - 2" & vbCrLf & _
                             "Âûñøàÿ Ìàòåìàòèêà - 4 " & vbCrLf & _
                             "ÎÏÝÇ - 3" & vbCrLf & _
                             "ÒÏÁÄ - 4"
         StudentSubjMarks(3) = "Èíôîðìàòèêà - 5" & vbCrLf & _
                             "Âûñøàÿ Ìàòåìàòèêà - 4 " & vbCrLf & _
                             "ÎÏÝÇ - 2" & vbCrLf & _
                             "ÒÏÁÄ - 3"
         StudentSubjMarks(4) = "Èíôîðìàòèêà - 1" & vbCrLf & _
                             "Âûñøàÿ Ìàòåìàòèêà - 4 " & vbCrLf & _
                             "ÎÏÝÇ - 1" & vbCrLf & _
                             "ÒÏÁÄ - 2"
         StudentSubjMarks(5) = "Èíôîðìàòèêà - 3" & vbCrLf & _
                             "Âûñøàÿ Ìàòåìàòèêà - 4 " & vbCrLf & _
                             "ÎÏÝÇ - 5" & vbCrLf & _
                             "ÒÏÁÄ - 3"
         StudentSubjMarks(6) = "Èíôîðìàòèêà - 2" & vbCrLf & _
                             "Âûñøàÿ Ìàòåìàòèêà - 2 " & vbCrLf & _
                             "ÎÏÝÇ - 1" & vbCrLf & _
                             "ÒÏÁÄ - 4"
         StudentSubjMarks(7) = "Èíôîðìàòèêà - 5" & vbCrLf & _
                             "Âûñøàÿ Ìàòåìàòèêà - 5 " & vbCrLf & _
                             "ÎÏÝÇ - 4" & vbCrLf & _
                             "ÒÏÁÄ - 4"
         StudentSubjMarks(8) = "Èíôîðìàòèêà - 5" & vbCrLf & _
                             "Âûñøàÿ Ìàòåìàòèêà - 5 " & vbCrLf & _
                             "ÎÏÝÇ - 5" & vbCrLf & _
                             "ÒÏÁÄ - 5"
         StudentSubjMarks(9) = "Èíôîðìàòèêà - 4" & vbCrLf & _
                             "Âûñøàÿ Ìàòåìàòèêà - 4 " & vbCrLf & _
                             "ÎÏÝÇ - 4" & vbCrLf & _
                             "ÒÏÁÄ - 4"
         StudentSubjMarks(10) = "Èíôîðìàòèêà - 3" & vbCrLf & _
                             "Âûñøàÿ Ìàòåìàòèêà - 3 " & vbCrLf & _
                             "ÎÏÝÇ - 3" & vbCrLf & _
                             "ÒÏÁÄ - 3"
 
 
BornDate(1) = #1/1/1994#
BornDate(2) = #12/1/1994#
BornDate(3) = #2/1/1994#
BornDate(4) = #3/5/1994#
BornDate(5) = #11/6/1995#
BornDate(6) = #9/17/1994#
BornDate(7) = #5/23/1995#
BornDate(8) = #11/6/1994#
BornDate(9) = #12/12/1993#
BornDate(10) = #4/28/1994#
 
Result = BubbleSort(BornDate)
 
End Sub
Function BubbleSort(S As Date) As String
  Dim i, j As Integer
  Dim Temp As Date
  Dim Results As String
   
    For j = 1 To 9 Step 1
      For i = 1 To 10 - j Step 1
       If S(i) > S(i + 1) Then
         Temp = S(i)
         S(i) = S(i + 1)
         S(i + 1) = Temp
      Next i
      Results = S(i + 1) & vbCrLf & _
      StudentFIO(i + 1) & vbCrLf & _
      StudentSubjMarks(i + 1)
      MsgBox Results
    Next j
End Function

Чувствую, что напортачил в выводе результата в функции. Но Basic ругается раньше. подсвечивает
Result = BubbleSort(BornDate)

SoftIce · 20.04.2013, 16:27

В задание не вникал, просто изменил код, чтобы ошибка не выскакивала.

Может там ещё куча ошибок

Не по теме:

, Sutdent:D

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
Dim SutdentFIO(1 To 10)
Dim StudentSubjMarks$(1 To 10)
Dim BornDate(1 To 10) As Date
Dim Result As String
 
 
Private Sub Form_Load()
 
  SutdentFIO(1) = "Жукова Диана Олеговна"
   SutdentFIO(2) = "Брежнева Алена Витальевна"
    SutdentFIO(3) = "Ульянова Мария Станиславовна"
     SutdentFIO(4) = "Гагарина Милена Алексеевна"
      SutdentFIO(5) = "Ломоносова Наталья Петровна"
      SutdentFIO(6) = "Терековна Ника Денисовна"
     SutdentFIO(7) = "Раковская Ольга Дмитриевна"
    SutdentFIO(8) = "Хазанова Полина Сергеевна"
   SutdentFIO(9) = "Нидзведская Роза Евгеньевна"
  SutdentFIO(10) = "Мальцева Снежана Викторовна"
         StudentSubjMarks(1) = "Информатика - 4" & vbCrLf & _
                             "Высшая Математика - 4 " & vbCrLf & _
                             "ОПЭЗ - 4" & vbCrLf & _
                             "ТПБД - 3"
         StudentSubjMarks(2) = "Информатика - 2" & vbCrLf & _
                             "Высшая Математика - 4 " & vbCrLf & _
                             "ОПЭЗ - 3" & vbCrLf & _
                             "ТПБД - 4"
         StudentSubjMarks(3) = "Информатика - 5" & vbCrLf & _
                             "Высшая Математика - 4 " & vbCrLf & _
                             "ОПЭЗ - 2" & vbCrLf & _
                             "ТПБД - 3"
         StudentSubjMarks(4) = "Информатика - 1" & vbCrLf & _
                             "Высшая Математика - 4 " & vbCrLf & _
                             "ОПЭЗ - 1" & vbCrLf & _
                             "ТПБД - 2"
         StudentSubjMarks(5) = "Информатика - 3" & vbCrLf & _
                             "Высшая Математика - 4 " & vbCrLf & _
                             "ОПЭЗ - 5" & vbCrLf & _
                             "ТПБД - 3"
         StudentSubjMarks(6) = "Информатика - 2" & vbCrLf & _
                             "Высшая Математика - 2 " & vbCrLf & _
                             "ОПЭЗ - 1" & vbCrLf & _
                             "ТПБД - 4"
         StudentSubjMarks(7) = "Информатика - 5" & vbCrLf & _
                             "Высшая Математика - 5 " & vbCrLf & _
                             "ОПЭЗ - 4" & vbCrLf & _
                             "ТПБД - 4"
         StudentSubjMarks(8) = "Информатика - 5" & vbCrLf & _
                             "Высшая Математика - 5 " & vbCrLf & _
                             "ОПЭЗ - 5" & vbCrLf & _
                             "ТПБД - 5"
         StudentSubjMarks(9) = "Информатика - 4" & vbCrLf & _
                             "Высшая Математика - 4 " & vbCrLf & _
                             "ОПЭЗ - 4" & vbCrLf & _
                             "ТПБД - 4"
         StudentSubjMarks(10) = "Информатика - 3" & vbCrLf & _
                             "Высшая Математика - 3 " & vbCrLf & _
                             "ОПЭЗ - 3" & vbCrLf & _
                             "ТПБД - 3"
 
 
BornDate(1) = #1/1/1994#
BornDate(2) = #12/1/1994#
BornDate(3) = #2/1/1994#
BornDate(4) = #3/5/1994#
BornDate(5) = #11/6/1995#
BornDate(6) = #9/17/1994#
BornDate(7) = #5/23/1995#
BornDate(8) = #11/6/1994#
BornDate(9) = #12/12/1993#
BornDate(10) = #4/28/1994#
 
Result = BubbleSort(BornDate)
 
End Sub
Function BubbleSort(S() As Date) As String
  Dim i, j As Integer
  Dim Temp As Date
  Dim Results As String
   
    For j = 1 To 10 Step 1
      For i = 1 To 9 - j Step 1
       If S(i) > S(i + 1) Then
         Temp = S(i)
         S(i) = S(i + 1)
         S(i + 1) = Temp
         End If
      Next i
      Results = S(i + 1) & vbCrLf & _
      SutdentFIO(i + 1) & vbCrLf & _
      StudentSubjMarks(i + 1)
      MsgBox Results
    Next j
End Function

Добавлено через 41 минуту
Со структурой и правильной сортировкой:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
Private Type typeStudent
     StudentFIO As String
     StudentSubjMarks  As String
     BornDate  As Date
End Type
 
Dim Student(1 To 10) As typeStudent
 
Private Sub Form_Load()
  Dim i As Integer
  Student(1).StudentFIO = "Жукова Диана Олеговна"
  Student(2).StudentFIO = "Брежнева Алена Витальевна"
  Student(3).StudentFIO = "Ульянова Мария Станиславовна"
  Student(4).StudentFIO = "Гагарина Милена Алексеевна"
  Student(5).StudentFIO = "Ломоносова Наталья Петровна"
  Student(6).StudentFIO = "Терековна Ника Денисовна"
  Student(7).StudentFIO = "Раковская Ольга Дмитриевна"
  Student(8).StudentFIO = "Хазанова Полина Сергеевна"
  Student(9).StudentFIO = "Нидзведская Роза Евгеньевна"
  Student(10).StudentFIO = "Мальцева Снежана Викторовна"
         Student(1).StudentSubjMarks = "Информатика - 4" & vbCrLf & _
                             "Высшая Математика - 4 " & vbCrLf & _
                             "ОПЭЗ - 4" & vbCrLf & _
                             "ТПБД - 3"
         Student(2).StudentSubjMarks = "Информатика - 2" & vbCrLf & _
                             "Высшая Математика - 4 " & vbCrLf & _
                             "ОПЭЗ - 3" & vbCrLf & _
                             "ТПБД - 4"
         Student(3).StudentSubjMarks = "Информатика - 5" & vbCrLf & _
                             "Высшая Математика - 4 " & vbCrLf & _
                             "ОПЭЗ - 2" & vbCrLf & _
                             "ТПБД - 3"
         Student(4).StudentSubjMarks = "Информатика - 1" & vbCrLf & _
                             "Высшая Математика - 4 " & vbCrLf & _
                             "ОПЭЗ - 1" & vbCrLf & _
                             "ТПБД - 2"
         Student(5).StudentSubjMarks = "Информатика - 3" & vbCrLf & _
                             "Высшая Математика - 4 " & vbCrLf & _
                             "ОПЭЗ - 5" & vbCrLf & _
                             "ТПБД - 3"
         Student(6).StudentSubjMarks = "Информатика - 2" & vbCrLf & _
                             "Высшая Математика - 2 " & vbCrLf & _
                             "ОПЭЗ - 1" & vbCrLf & _
                             "ТПБД - 4"
         Student(7).StudentSubjMarks = "Информатика - 5" & vbCrLf & _
                             "Высшая Математика - 5 " & vbCrLf & _
                             "ОПЭЗ - 4" & vbCrLf & _
                             "ТПБД - 4"
         Student(8).StudentSubjMarks = "Информатика - 5" & vbCrLf & _
                             "Высшая Математика - 5 " & vbCrLf & _
                             "ОПЭЗ - 5" & vbCrLf & _
                             "ТПБД - 5"
         Student(9).StudentSubjMarks = "Информатика - 4" & vbCrLf & _
                             "Высшая Математика - 4 " & vbCrLf & _
                             "ОПЭЗ - 4" & vbCrLf & _
                             "ТПБД - 4"
         Student(10).StudentSubjMarks = "Информатика - 3" & vbCrLf & _
                             "Высшая Математика - 3 " & vbCrLf & _
                             "ОПЭЗ - 3" & vbCrLf & _
                             "ТПБД - 3"
    Student(1).BornDate = #1/1/1994#
    Student(2).BornDate = #12/1/1994#
    Student(3).BornDate = #2/1/1994#
    Student(4).BornDate = #3/5/1994#
    Student(5).BornDate = #11/6/1995#
    Student(6).BornDate = #9/17/1994#
    Student(7).BornDate = #5/23/1995#
    Student(8).BornDate = #11/6/1994#
    Student(9).BornDate = #12/12/1993#
    Student(10).BornDate = #4/28/1994#
    
    BubbleSort
    For i = 1 To UBound(Student)
        MsgBox Student(i).StudentFIO & vbCrLf & Student(i).BornDate & vbCrLf & Student(i).StudentSubjMarks
    Next i
End Sub
 
Sub BubbleSort()
  Dim i As Integer, j As Integer
  Dim Temp As typeStudent, Results As String
     For i = 1 To 10
      For j = 1 To 10 - 1
       If Student(j).BornDate > Student(j + 1).BornDate Then
         Temp = Student(j)
         Student(j) = Student(j + 1)
         Student(j + 1) = Temp
         End If
      Next j
    Next i
End Sub

@AlexKuchanskiy · 20.04.2013, 19:03 **[ТС]**

Сообщение от SoftIce

В задание не вникал, просто изменил код, чтобы ошибка не выскакивала.

Спасибо большое) Вроде, работает))

Сообщение от SoftIce

Не по теме:

, Sutdent:D

даже и не замечал

@Catstail · 20.04.2013, 19:05

Сочувствую! В следующем семестре программу придется менять...

@AlexKuchanskiy · 20.04.2013, 22:50 **[ТС]**

Сообщение от Catstail

Сочувствую! В следующем семестре программу придется менять...

Чему конкретно Вы сочувствуете?)

SoftIce · 20.04.2013, 23:20

Сообщение от AlexKuchanskiy

Чему конкретно Вы сочувствуете?

Данные нужно не записывать в код, а вводить их извне, и лучше из внешнего текстового файла.

@Catstail · 21.04.2013, 10:49

Сообщение от AlexKuchanskiy

Чему конкретно Вы сочувствуете?)

- в программу "зашиты" ФИО студентов. В следующем семестре они будут другие...

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: показать затраченные материалы за определенный период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@Catstail Супер-модератор 38203 / 21135 / 4310 Регистрация: 12.02.2012 Сообщений: 34,741 Записей в блоге: 14
	20.04.2013, 19:05
	Сочувствую! В следующем семестре программу придется менять... 1

Опции темы

Обработка записей (структур)

Решение