Аранжировки, Визуальные основы c, excel

Question

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

Sub Button1_Click()

    Dim StudentVolume(1 To 25, 2 To 5) As Single
    Dim StudentID As Integer, Grade As String, TestNumber As Integer

    For StudentID = 1 To 25     'outer loop start'
        For TestNumber = 1 To 5 'inner loop start'
            StudentVolume(StudentID, TestNumber) = InputBox("Enter Student Volume")

            If Grade >= 100 And Grade <= 90 Then
                Grade = A
            Else
                If Grade >= 89 And Grade <= 80 Then
                    Grade = B
                Else
                    If Grade >= 79 And Grade <= 70 Then
                        Grade = C
                    Else
                        If Grade >= 69 And Grade <= 60 Then
                            Grade = D
                        Else
                            If Grade >= 59 And Grade <= 0 Then
                                Grade = F
                            End If
                        End If
                    End If
                End If
            End If

            Cells(StudentID, Grade) = StudentVolume(StudentID, Grade)

        Next TestNumber 'inner loop end'
    Next StudentID      'outer loop end'

End Sub

Answer 1

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

1. Всегда, всегда, всегда ставьте Option Explicit в начале каждого класса / формы / модуля.

2. Используйте F1, чтобы получить помощь. В VBA IDE наведите курсор на объект VBA или Office и нажмите F1. Страница справки MS для этого элемента будет загружена. Убедитесь, что вы прочитали и поняли страницу справки.

3. Скомпилируйте код, прежде чем пытаться запустить его. В VBA IDE используйте Debug.Compile Project

4. Установите бесплатное дополнение RubberDack для VBA Fantasti c. В частности, обратите внимание на проверки кода, они являются отличным учебным ресурсом для VBA и приложений Office.