Оценка после выполнения теста

@komsomol99l · Регистрация: 11.10.2014

Студворк — интернет-сервис помощи студентам

Доброго дня Уважаемые форумчане!

Требуется Ваша помощь в реализации следующего вопроса:
После выполнения теста выполняется функция:

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
Private Function Final()
Dim strs, m, n, p, pp, r, v
    
   
    'Считаем правильные ответы
    strs = "" ' здесь выполняется запрос
    p = CurrentProject.Connection.Execute(strs).Fields(0)
    
    'Считаем неправильные ответы
    strs = "" ' здесь выполняется запрос
    pp = CurrentProject.Connection.Execute(strs).Fields(0)
        
    'Считаем вопросы без ответов
    strs = "" ' и здесь запрос
    m = CurrentProject.Connection.Execute(strs).Fields(0)
    
    n = p + pp + m 'Считаем всего вопросов
    
    If n = 0 Then ' Считаем количество правильных ответов в процентах
    v = 0
    Else
    v = Format((CDbl(p) / CDbl(n) * 100), "###0.0")
    End If
    
    MsgBox "Дисциплина:" & " " & Me.дисциплина & " " & vbNewLine _
    & "Раздел:" & " " & Me.раздел & vbNewLine & vbNewLine _
    & "Всего вопросов - " & n & vbNewLine & vbNewLine _
    & "Из них: " & vbNewLine _
    & "Правильно отвечено на - " & p & vbNewLine _
    & "Неправильно отвечено на - " & pp & vbNewLine _
    & "Без ответа - " & m & vbNewLine _
    & "Оценка - " & r & vbNewLine _
    & "Процент правильных ответов из общего числа вопросов - " & Format(v, "##0.0") & "%" _
    & vbNewLine, vbOKOnly, "Результат тестирования"
    
    MaxJ = Nz(DMax("код_журнал", "Журнал"), 0) + 1
    strs = "" ' здесь выполняется запрос на добавление разультатов в таблицу Журнал
    CurrentDb.Execute strs
    
End Function

Внимание вопрос: как либо из среднего значения либо из ответов в процентах (v) получить оценку в формате "неудовлетворительно", "удовлетворительно", "хорошо", "отлично"?

Использовала

Visual Basic
1
2
3
4
5
6
If...Then...
Else...
If...Then...
Else...
End If
End If

, но положительных результатов не достигла (почему-то "отлично" не получила).

Спасибо!!!

@ltv_1953 · 02.04.2015, 12:10

Нужны правила получения оценки по интервалам значений V, тогда и текст VB можно будет написать (в нем же проблема?).

@komsomol99l · 02.04.2015, 12:16 **[ТС]**

Сообщение от ltv_1953

Нужны правила получения оценки по интервалам значений V

грубо говоря как-то так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Если v < или = 30 То
r = "неуд" Иначе
Если v < или = 50 То
r = "удовлетворительно" Иначе
Если v < или = 70 То
r = "хорошо" Иначе
Если v < или = 100 То
r = "отлично"
Конец
Конец
Конец
Конец

Прошу простить за мой французский!

@ltv_1953 · 02.04.2015, 12:39

Для удобства отладки (да и изменения интервалов) функция

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Public Function F_RZ(ByVal PRC As Currency) As String
    If PRC <= 30 Then
        F_RZ = "неуд"
    ElseIf PRC <= 50 Then
        F_RZ = "удовлетворительно"
    ElseIf PRC <= 70 Then
        F_RZ = "хорошо"
    Else
        F_RZ = "отлично"
    End If
End Function

Добавлено через 5 минут

Сообщение от komsomol99l

Прошу простить за мой французский!

Не по теме:

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

@komsomol99l · 02.04.2015, 15:24 **[ТС]**

Уважаемый ltv_1953, огромное Вам СПАСИБО!
Действительно, применение отдельной функции подсчета результата это лучшее решение.

Сообщение Не по теме - улыбнуло

======================================== ====================================

Уважаемые форумчане, в продолжение темы позволю себе ещё один коварный вопрос:

Как данные из переменных v (результат в процентах) и r (результаты "неудовл", "удовлетворительно" и т.д.) записать в таблицу Журнал?

Visual Basic
1
2
3
4
MaxJ = Nz(DMax("код_журнал", "Журнал"), 0) + 1
    strs = "INSERT INTO Журнал (код_журнал, дата_тестирования, всего, правильно, неправильно, нет_ответа, процент, результат) " _
    & "SELECT " & MaxJ & ", Date(), " & n & ", " & p & ", " & pp & ", " & m & ", " & v & ", " & r & " "
        CurrentDb.Execute strs

для v пробовала использовать

Visual Basic
1
Format(v, "##0.0")

, но не достигла желаемого результата.

Спасибо!!!

@ltv_1953 · 02.04.2015, 15:38

Сообщение от komsomol99l

Format(v, "##0.0")

Если дело только не в том форматирование, которое нужно, то может так подойдет?

Visual Basic
1
Format(V,"##0.0\%")

А запрос то выполняется?

@komsomol99l · 02.04.2015, 15:47 **[ТС]**

Сообщение от ltv_1953

А запрос то выполняется?

Да, запрос работает без проблем, значения переменных n, p, pp и m в Журнал записываются, а вот v и r ни в какую не хотят, т.е. значения отличные от целого числа (а r - это вообще текст).

Сообщение от ltv_1953

Format(V,"##0.0\%")

нет - ошибка синтаксиса

@ltv_1953 · 02.04.2015, 15:56

А если так (только "хвост")

Visual Basic
1
, '" & Format(v,"##0.0\%") & "', '" & r & "'"

Это же текстовые, заключайте их в одиночные кавычки.

@komsomol99l · 02.04.2015, 16:08 **[ТС]**

Сообщение от ltv_1953

Это же текстовые, заключайте их в одиночные кавычки

Точно, на такой ерунде прокололась... это всё невнимательность.
ltv_1953, большущее Вам СПАСИБО!!!

@ltv_1953 · 02.04.2015, 16:09

Заработало? А то есть некоторые сомнения "', '" ... .
Да не за что, успехов.

@komsomol99l · 02.04.2015, 16:22 **[ТС]**

Сообщение от ltv_1953

Заработало? А то есть некоторые сомнения "', '"

Да-да, все отлично работает.
Ещё раз спасибо!!!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	02.04.2015, 12:10
	Нужны правила получения оценки по интервалам значений V, тогда и текст VB можно будет написать (в нем же проблема?). 0

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	02.04.2015, 16:09
	Заработало? А то есть некоторые сомнения "', '" ... . Да не за что, успехов. 0

Оценка после выполнения теста

Решение