Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 21.03.2014
Сообщений: 19
1

Ввести информацию о 10 студентах группы

13.05.2014, 22:48. Показов 1719. Ответов 2
Метки нет (Все метки)

Ввести информацию о 10 студентах группы. Информация содержит фамилию, имя, отчество студента, год рождения, четыре оценки за экзамены последней сессии. Распечатать анкетные данные студентов, получивших в последнюю сессию оценку 2.
Со списком всё получилось, а как сделать выборку не пойму, помогите, пожалуйста. Заранее СПАСИБО.
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
Private Type typeStudent
FIO As String
BDay As Integer
Mark(1 To 4) As Integer
End Type
 
Private Sub Command1_Click()
Dim I As Integer
Dim J As Integer
Dim Student(1 To 10) As String
Dim Gruppa(1 To 10) As typeStudent
Student(1) = "Иванова Ксения Александровна"
Student(2) = "Ковалёва Мария Александровна"
Student(3) = "Антипов Владимир Олегович"
Student(4) = "Синица Анастасия Юрьевна"
Student(5) = "Мамаев Владислав Анатольевич"
Student(6) = "Андропов Игорь Владимирович"
Student(7) = "Кравченко Юлия Максимовна"
Student(8) = "Марчук Анастасия Ивановна"
Student(9) = "Кузнецова Даниэла Алексеевна"
Student(10) = "Малышева Александра Сергеевна"
Randomize
For I = 1 To 10
J = Val(Rnd * (10 - 1) + 1)
Text1.Text = Student(J)
Text2.Text = Str(1991 + Int((3 * Rnd) + 2))
Text3.Text = Str(Int((4 * Rnd) + 2))
Text4.Text = Str(Int((4 * Rnd) + 2))
Text5.Text = Str(Int((4 * Rnd) + 2))
Text6.Text = Str(Int((4 * Rnd) + 2))
Gruppa(I).FIO = Text1.Text
Gruppa(I).BDay = Text2.Text
Gruppa(I).Mark(1) = Val(Text3.Text)
Gruppa(I).Mark(2) = Val(Text4.Text)
Gruppa(I).Mark(3) = Val(Text5.Text)
Gruppa(I).Mark(4) = Val(Text6.Text)
List1.AddItem (" ")
List1.AddItem ("номер студента " + Str(I))
List1.AddItem ("ФИО: " + Gruppa(I).FIO)
List1.AddItem ("ДР: " + Str(Gruppa(I).BDay))
List1.AddItem ("Химия: " + Str(Gruppa(I).Mark(1)))
List1.AddItem ("Физика: " + Str(Gruppa(I).Mark(2)))
List1.AddItem ("Англ. яз.: " + Str(Gruppa(I).Mark(3)))
List1.AddItem ("Инф.: " + Str(Gruppa(I).Mark(4)))
List1.AddItem ("")
List2.AddItem ("выборка...")
List2.AddItem ("Список студентов, которые получили 2")
List2.AddItem ("")
If Gruppa(I).Mark(?) = 2 Then
List1.AddItem ("ФИО" + Gruppa(J).FIO)
End If
Next I
End Sub
 
Private Sub Command2_Click()
Command1.Caption = "Добавить"
Command1.Enabled = True
I = 0
List1.Clear
List2.Clear
End Sub
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.05.2014, 22:48
Ответы с готовыми решениями:

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

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

Массив структур содержит информацию о студентах группы
/*Массив структур содержит информацию о студентах группы: в первом поле стоит фамилия, во втором...

Напечатать таблицу, содержащую информацию о студентах группы
Задание: напечатать таблицу , содержащую номера , фамилии , оценки и средний балл студентов группы...

2
2 / 2 / 3
Регистрация: 13.05.2014
Сообщений: 29
14.05.2014, 11:46 2
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Не так уж и сложно...

Добавлено через 9 минут
Исходник в аттаче

Добавлено через 2 минуты
Печать-
Visual Basic
1
PrintForm
Вложения
Тип файла: rar Desktop.rar (2.4 Кб, 6 просмотров)
0
0 / 0 / 0
Регистрация: 21.03.2014
Сообщений: 19
14.05.2014, 17:29  [ТС] 3
там ошибки какие-то..
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.05.2014, 17:29

Описать структуру студенты, содержащую информацию о студентах группы
Описать структуру студенты, содержащую информацию о студентах группы: фамилия, имя, отчество, год...

Ввести информацию по 25 студентам из группы. Переписать из исходного массива в другой массив, информацию о девочках
Определить комбинированный тип для представления анкеты студента, состоящей из его фамилии, дня...

Найти информацию о студентах каждой группы родившихся в один и тот же месяц и год
Дан массив содержащий данные о студентах( Группа, ФИО, дата рождения) . Найти и вывести всех...

Включить информацию о студентах, чей средний балл меньше среднего балла группы
Никак не могу найти ошибку в программе.Требуется записать ФИО, оценки по русскому и математике в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru