|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.05.2009, 13:20 | #1 |
Регистрация: 24.04.2009
Сообщений: 3
|
Программа-тест на Visual Basic
Всем привет. Очень нужно чтоб вы помогли мне в одном деле . Ко вторнику мне нужно зделать программу-тест на Visual Basic. Суть программы: Дано 20 вопросов, у каждого из вопросов по 3 варианта ответа, правильный тока один из трех вариантов. (вопросы сам потом впишу). Помогите пожайлуста ее подкориктировать и дописать концовку, чтобы в конце теста выдавал сколько зделал правильных ответов и ставил оценку за зделанный тест (по пятибальной шкале конечно). Всем спасибо!
P.s желательно зделать так, чтобы 1 вопрос был на одной форме, тоесть: вот ответили мы на 1 вопрос, подтвердили и чтобы он перескачил на вторую форму и там второй вопрос с вариантами ответа Вот начало задачи. Dim vopr (20)As String Dim otv (20,3)As String Dim prav (20)As String dim i as byte form 1 vopr (1)="" vopr (2)="" vopr (3)="" vopr (4)="" vopr (5)="" vopr (6)="" vopr (7)="" vopr (8)="" vopr (9)="" vopr (10)="" vopr (11)="" vopr (12)="" vopr (13)="" vopr (14)="" vopr (15)="" vopr (16)="" vopr (17)="" vopr (18)="" vopr (19)="" vopr (20)="" otv(1,1)"" otv(1,2)"" otv(1,3)"" ...... prav(1)=1,2 prav(2)=1,2 prav(3)=4,5 prav(4)=4,5 prav(5)=4,5 prav(6)=1,2 prav(7)=4,5 prav(8)=1,2 prav(9)=4,5 prav(10)=1,2 prav(11)=1,2 prav(12)=4,5 prav(13)=4,5 prav(14)=4,5 prav(15)=4,5 prav(16)=1,2 prav(17)=1,2 prav(18)=4,5 prav(19)=4,5 prav(20)=4,5 Последний раз редактировалось RosOnDon; 03.05.2009 в 13:29. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Visual Basic: не сложная программа для производства работающая с Excel, оплата труда гарантированна | zxspec | Помощь студентам | 0 | 03.05.2009 01:43 |
Visual Basic 6 | С.М.С | Помощь студентам | 3 | 29.12.2008 15:45 |
Программа на Visual Basic | ViNcHeStEr | Помощь студентам | 1 | 08.08.2008 12:03 |