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

@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

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

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

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение Это мой обзор планшета X220 с точки зрения школьника. Недавно я решила попытаться уменьшить свой. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

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

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

Решение