Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Alya_Alya
0 / 0 / 0
Регистрация: 01.06.2013
Сообщений: 2
1

Напечатать список студентов средний балл которых меньше 4

04.06.2013, 22:35. Просмотров 380. Ответов 0
Метки нет (Все метки)

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
94
95
96
97
98
99
100
101
102
103
Private Type typeStudent
    StudentFIO As String
     Mark(1 To 4) As Integer
     MarkIstoriya As Integer
     MarkMatematika As Integer
     MarkInformatika As Integer
     MarkPhysic As Integer
     MarkSrednee As Integer
       BornDate  As Date
      
End Type
 
Dim Student(1 To 10) As typeStudent
  Dim i As Integer
  
  Private Sub Command1_Click()
    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).MarkIstoriya = 4
             Student(1).MarkMatematika = 4
             Student(1).MarkInformatika = 4
             Student(1).MarkPhysic = 3
             Student(2).MarkIstoriya = 5
             Student(2).MarkMatematika = 4
             Student(2).MarkInformatika = 4
             Student(2).MarkPhysic = 4
             Student(3).MarkIstoriya = 5
             Student(3).MarkMatematika = 4
             Student(3).MarkInformatika = 2
             Student(3).MarkPhysic = 3
             Student(4).MarkIstoriya = 1
             Student(4).MarkMatematika = 4
             Student(4).MarkInformatika = 1
             Student(4).MarkPhysic = 2
             Student(5).MarkIstoriya = 5
             Student(5).MarkMatematika = 4
             Student(5).MarkInformatika = 5
             Student(5).MarkPhysic = 3
             Student(6).MarkIstoriya = 3
             Student(6).MarkMatematika = 2
             Student(6).MarkInformatika = 5
             Student(6).MarkPhysic = 4
             Student(7).MarkIstoriya = 5
             Student(7).MarkMatematika = 5
             Student(7).MarkInformatika = 4
             Student(7).MarkPhysic = 4
             Student(8).MarkIstoriya = 5
             Student(8).MarkMatematika = 5
             Student(8).MarkInformatika = 5
             Student(8).MarkPhysic = 5
             Student(9).MarkIstoriya = 4
             Student(9).MarkMatematika = 4
             Student(9).MarkInformatika = 4
             Student(9).MarkPhysic = 4
             Student(10).MarkIstoriya = 3
             Student(10).MarkMatematika = 3
             Student(10).MarkInformatika = 3
             Student(10).MarkPhysic = 3
                Student(1).BornDate = #12/12/1994#
                Student(2).BornDate = #11/10/1995#
                Student(3).BornDate = #8/31/1994#
                Student(4).BornDate = #3/5/1993#
                Student(5).BornDate = #4/16/1994#
                Student(6).BornDate = #5/17/1993#
                Student(7).BornDate = #10/23/1995#
                Student(8).BornDate = #3/6/1994#
                Student(9).BornDate = #8/7/1993#
                Student(10).BornDate = #10/28/1993#
        
    For i = 1 To 10
        Student(i).MarkSrednee = (Student(i).MarkIstoriya + Student(i).MarkMatematika + Student(i).MarkInformatika + Student(i).MarkPhysic) / 4
    Next i
        
    If i < 10 Then i = i + 1
        List2.AddItem ("ФИО " + Student(i).StudentFIO)
        List2.AddItem ("дата рождения " + Student(i).BornDate)
        List2.AddItem ("история " + Student(i).MarkIstoriya)
        List2.AddItem ("математика " + Student(i).MarkMatematika)
        List2.AddItem ("информатика " + Student(i).MarkInformatika)
        List2.AddItem ("физикаГ* " + Student(i).MarkPhysic)
        List2.AddItem ("средняя оценка " + Student(i).MarkSrednee)
        List2.AddItem (" ")
        
        List1.Clear
    If i = 10 Then
        List1.AddItem ("выборка...")
        List1.AddItem ("список студентов оценка которых меньше 4")
    For i = 1 To 10
      Next i
        If (Student(i).MarkSrednee < 4) Then
    List1.AddItem ("ФИО " + Student(i).StudentFIO + "дата рождения " + Student(i).MarkSrednee)
      
    End If
End Sub
' распечатать список студентов средний балл которых меньше 4
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.06.2013, 22:35
Ответы с готовыми решениями:

Напечатать список студентов средний балл которых меньше 4
Вроде правильно все, но почему-то не работает. заранее спасибо!) Private Type typeStudent...

Напечатать список группы и средний балл каждого студента
Прощу помочь с задачей. Дела плохи,а завтра сдавать( Пожалуйста помогите Пробовала,но совсем не...

Средний балл
Добрый день, не могу решить никак задачу. Имеется средний балл 9,5. Числа этого среднего балла 9 и...

Найти средний балл ученика, если оценок неизвестное колличество
работаю в vb6. точнее начала работать. в школе объяснили пару уроков куда что писать,дали цикл...

Вычислить размер стипендии, если известен средний балл студента
Вычислить размер стипендии, если известен средний балл студента. Тема:(Разработка простейших...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.06.2013, 22:35

Массив: для всех с оценкой ниже среднего балла заново ввести оценки и потом пересчитать средний балл
Дан массив 5-ти фамилий и массив 5-ти оценок. Надо для всех с оценкой ниже среднего балла заново...

Найти средний возраст студентов группы
Помогите народ с заданием зачот хочу получить. при оформления задания необходимо: - выполнить...

Определить число неуспевающих студентов и средний бал группы по всем экзаменам
Вводя в цикле по 5 оценок каждого студента, подсчитать число студентов, не имеющих оценок 2 и 3. В...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru