Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 03.12.2016
Сообщений: 28
1
Excel

Вычислить средний балл, полученный каждым студентом заданной группы, и средний балл этой группы, по каждому предмету

03.07.2019, 07:42. Просмотров 424. Ответов 3
Метки нет (Все метки)

Пытаюсь сделать первую часть задания и не получается из-за того что владею навыками vba не так хорошо. Возможно проблема с тем что я не разобрался с listbox и как он работает




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
Private Sub CommandButton1_Click()
    Dim N As Integer, a As Integer, s As Integer, j As Integer
    Dim b As Integer, c As Integer, i As Integer
    N = TextBox1.Text
    For i = 1 To M
        If Cells(i, 1) = N Then
            ListBox1.AddItem "i - 1"
            ListBox1.List(i - 1, 1) = Cells(i, 2)
            a = Cells(i, 3)
            s = 0
            Do While a > 0
                b = a Mod 10
                Select Case b
                    Case Is = 5
                        c = 10 + Rnd(3)
                    Case Is = 4
                        c = 7 + Rnd(3)
                    Case Is = 3
                        c = 4 + Rnd(3)
                    Case Is = 2
                        c = 0 + Rnd(3)
                End Select
                s = s + c
                a = a \ 10
            Loop
            j = Len(Cells(i, 3)) + Len(Cells(i, 4))
            s = s + 8 * (Len(Cells(i, 4) - Len(Replace(Cells(i, 4), "З", ""))) / Len("З"))
            ListBox1.List(i - 1, 2) = s / j
        End If
    Next i
End Sub
 
Private Sub UserForm_Activate()
    Dim M As Double
    M = 1
    Do While Cells(M, 1) > " "
        M = M + 1
    Loop
End Sub
0
Миниатюры
Вычислить средний балл, полученный каждым студентом заданной группы, и средний балл этой группы, по каждому предмету  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.07.2019, 07:42
Ответы с готовыми решениями:

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

Вычислить средний балл группы и распечатать список студентов, имеющих средний балл выше среднего балла группы
Здраствуйте ещё раз :) Скажу сразу честно толком не пробывал решать с Записями и в особенности вот...

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

Вычислить средний балл группы и вывести список студентов, имеющих средний балл ниже среднего балла группы
Здравствуйте, помогите решить. Задания для выполнения: В лабораторной работе №7 необходимо...

3
0 / 0 / 0
Регистрация: 03.12.2016
Сообщений: 28
03.07.2019, 07:44  [ТС] 2
А это форма
0
Миниатюры
Вычислить средний балл, полученный каждым студентом заданной группы, и средний балл этой группы, по каждому предмету  
197 / 131 / 67
Регистрация: 27.03.2019
Сообщений: 288
03.07.2019, 07:54 3
Dolya08, добрый день, нам бы файл тестовый. Сомневаюсь, что у кого-то на форуме есть лишнее время создать аналог Вашей формы и таблицы.
0
0 / 0 / 0
Регистрация: 03.12.2016
Сообщений: 28
03.07.2019, 13:08  [ТС] 4
Я оказывается не правильно понял задачу в корне. Так что все что у меня было не верно
Извините
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.07.2019, 13:08

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Определить средний балл группы по каждому предмету
Необходимо написать программу, в которой необходимо: создать файл с фамилиями студентов группы и,...

Определите средний балл студентов группы по каждому предмету
Здравствуйте. Прошу помочь решить задачу с использованием указателей. Дана матрица А, имеющая 30...

Определите средний балл студентов группы по каждому предмету
Помогите пожалуйста написать программу с помощью процедуры или функции!!! Дана матрица А,...


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

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

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