Ответ появляется в InputBox

@Dilayla · Регистрация: 10.04.2013

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

При нажатии кнопки "Начать тест" появляются InputBox с разными вопросами.Ответил на один вопрос (ну или не ответил) и появляется следующий InputBox с другим вопросом.Всего вопросов 5.
На основной форме находится,кроме кнопки,еще и текстовая строка(Text).
Нужно,чтобы после того,как пользователь ответил на все вопросы,в этом текстовом поле Text появлялась информация о количестве верных ответов.
Спасибо!

@antonboom · 15.04.2013, 23:11

Первое, что пришло на ум (для строковых ответов, нужно обговаривать точность ответа или ставить условие на *любой* регистр)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
Dim x1, x2, x3, x4, x5 As Integer 'èëè ñòðîêîâûé òèï êàêîé
Dim k As Integer: k = 0
 
x1 = InputBox("Â êàêîì ãîäó Þ.À.Ãàãàðèí ïîëåòåë â êîñìîñ?")
If x1 = 1961 Then
k = k + 1
End If
...
x5 = InputBox("Âòîðàÿ Ìèðîâàÿ âîéíà çàâåðøèëàñü â...")
If x5 = 1945 Then
k = k + 1
End If
 
Text1.Text = "Êîëè÷åñòâî ïðàâèëüíûõ îòâåòîâ: " + Str(k)
End Sub

@Dilayla · 16.04.2013, 17:39 **[ТС]**

У моего теста есть такой вопрос (например):

Visual Basic
1
2
3
4
 x1 = InputBox("Программа,обладающая способностью к самовоспроизведению", "Первый вопрос")
   If x1 = "вирус" Then
   k = k + 1
   End If

Если потом в InputBox ввожу с маленькой буква слово "вирус",то он считает его,как правильный ответ.Но если ввожу с большой "Вирус",то он засчитывает его,как неправильный.Как это исправить?
Если делать так

Visual Basic
1
2
3
4
x1 = InputBox("Программа,обладающая способностью к самовоспроизведению", "Первый вопрос")
   If x1 = "вирус" or "Вирус"Then
   k = k + 1
   End If

то он просто выдает сообщение об ошибке и закрывает программу.Что делать?

dev.Free · 16.04.2013, 17:49

Visual Basic
1
If X1 = "вирус" Or X1 = "Вирус" Then

@Dilayla · 16.04.2013, 18:26 **[ТС]**

А возможно ли создать такую кнопку,при нажатии которой в этом же текстовом поле (Text) будет появляться оценка ученика по пятибалльной системе.
Ну например,один неправильный ответ-4 балла...и т.д.
Спасибо!

dev.Free · 16.04.2013, 18:30

Dilayla, Вообще для таких целей надо писать нормальную программу тестирования! С системой оценок, редактированием вопросов и прочего.

Можно сделать все, как мы собираемся рассчитывать процент знания ученика, формулу покажи.

@antonboom · 16.04.2013, 18:32

...Если не хочется думать над ^ - сделай так же через счетчик)

@Dilayla · 16.04.2013, 18:47 **[ТС]**

Т.е. по аналогу k=0 ?

Добавлено через 10 минут
Все получилось,спасибо!

dev.Free · 17.04.2013, 11:04

Вот тебе процент смотри:

Берем общее кол-во вопросов которое задали ученик к примеру 10 вопросов, далее берем общее кол-во вопросов на которое ответил пользователь к примеру ответил на все 10 вопросов, и берем теперь вопросы который он ответил правильно, значит получается примерно так: A* B / с

Теперь:

A - Всего вопросов
B - Правильные ответы
C - Процент знаний от 10% до 100 за отведенные промежутки ответов на вопросы. К примеру ответил на 10 вопросов значит такая таблица:

10%
40%
60%
80%
100%

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Dilayla 0 / 0 / 0 Регистрация: 10.04.2013 Сообщений: 15

	Ответ появляется в InputBox 15.04.2013, 22:59. Показов 1138. Ответов 8 Метки нет (Все метки) При нажатии кнопки "Начать тест" появляются InputBox с разными вопросами.Ответил на один вопрос (ну или не ответил) и появляется следующий InputBox с другим вопросом.Всего вопросов 5. На основной форме находится,кроме кнопки,еще и текстовая строка(Text). Нужно,чтобы после того,как пользователь ответил на все вопросы,в этом текстовом поле Text появлялась информация о количестве верных ответов. Спасибо! 0

@Dilayla 0 / 0 / 0 Регистрация: 10.04.2013 Сообщений: 15
	16.04.2013, 18:26 [ТС]
	А возможно ли создать такую кнопку,при нажатии которой в этом же текстовом поле (Text) будет появляться оценка ученика по пятибалльной системе. Ну например,один неправильный ответ-4 балла...и т.д. Спасибо! 0

dev.Free Заблокирован
	16.04.2013, 18:30
	Dilayla, Вообще для таких целей надо писать нормальную программу тестирования! С системой оценок, редактированием вопросов и прочего. Можно сделать все, как мы собираемся рассчитывать процент знания ученика, формулу покажи. 0

@antonboom bmstu-team 301 / 136 / 91 Регистрация: 10.01.2012 Сообщений: 420 Записей в блоге: 10
	16.04.2013, 18:32
	...Если не хочется думать над ^ - сделай так же через счетчик) 0

@Dilayla 0 / 0 / 0 Регистрация: 10.04.2013 Сообщений: 15
	16.04.2013, 18:47 [ТС]
	Т.е. по аналогу k=0 ? Добавлено через 10 минут Все получилось,спасибо! 0

dev.Free Заблокирован
	17.04.2013, 11:04
	Вот тебе процент смотри: Берем общее кол-во вопросов которое задали ученик к примеру 10 вопросов, далее берем общее кол-во вопросов на которое ответил пользователь к примеру ответил на все 10 вопросов, и берем теперь вопросы который он ответил правильно, значит получается примерно так: A* B / с Теперь: A - Всего вопросов B - Правильные ответы C - Процент знаний от 10% до 100 за отведенные промежутки ответов на вопросы. К примеру ответил на 10 вопросов значит такая таблица: 10% 40% 60% 80% 100% 1

Ответ появляется в InputBox

Решение