| Вопрос: Тест-задача | Добавлено: 03.05.10 22:29 |
Автор вопроса:  Антон
|
|
Подскажите пожалуйста. Нужно сделать на VB6 тест на тему писатели и даты их рождения. Код программы есть, но она отказывается работать ссылаясь на строчку где выводятся набранные баллы. Помогите пожалуйста, подскажите в чем ошибка. Код прилагаю
Dim Балл As Byte
Private Sub Пуск_Click() If T1.Text = “Толстой Л.Н.” And O2 Then Балл = Балл + 1 ElseIf T1.Text = “Чехов А.П. ” And O1 Then Балл = Балл + 1 ElseIf T1.Text = “Лермонтов М.Ю. ” And O3 Then Балл = Балл + 1 ElseIf T1.Text = “Пушкин А.С. ” And O4 Then Балл = Балл + 1 End If If T1.Text = “Толстой Л.Н.” Then T1.Text = “Чехов А.П.” ElseIf T1.Text = “Чехов А.П. ” Then T1.Text = “Лермонтов М.Ю.” ElseIf T1.Text = “Лермонтов М.Ю. ” Then T1.Text = “Пушкин А.С.” Else Т2.Text = “Вы набрали ” & Балл & “ баллов” End If End Sub |
| Ответы | Всего ответов: 13 |
|
Номер ответа: 1 Автор ответа:  VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 03.05.10 22:36 |
| а описание ошибки поподровние можно? сделай Балл As Integer. | ||
|
Номер ответа: 2 Автор ответа: Антон Вопросов: 2 Ответов: 4 |
Профиль | Цитата | #2 | Добавлено: 03.05.10 22:40 |
|
424 Run Time Error. Object reqired.
В UserForm вроде бы все правильно несколько раз перепроверял |
||
|
Номер ответа: 3 Автор ответа: VbStarterICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 03.05.10 22:46 |
| значит у тебя нету текстбоса под именем T2. проверь раскладку написания T и регистр. | ||
|
Номер ответа: 4 Автор ответа: АнтонВопросов: 2 Ответов: 4 |
Профиль | Цитата | #4 | Добавлено: 03.05.10 22:54 |
| Пробовал уже не помогает( Пожалуйста если вам не сложно помогите заставить эту штуку работать, код есть и я уверен что он 100% правильный, но на деле не работает =( | ||
|
Номер ответа: 5 Автор ответа: AWPICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 03.05.10 22:54 |
ну да.
эти две строчки не равны. правильная вторая. |
||
|
Номер ответа: 6 Автор ответа: АнтонВопросов: 2 Ответов: 4 |
Профиль | Цитата | #6 | Добавлено: 03.05.10 22:58 |
| Спасибо поставил вторую строчку и программа стала считать баллы но все ещё осталась проблема она не меняет писателей. | ||
|
Номер ответа: 7 Автор ответа: VbStarterICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #7 | Добавлено: 03.05.10 23:09 |
| AWP а в чём неравенство было (интересно просто)? | ||
|
Номер ответа: 8 Автор ответа: VbStarterICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #8 | Добавлено: 03.05.10 23:09 |
| ща посмотрим, почему. | ||
|
Номер ответа: 9 Автор ответа: VbStarterICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #9 | Добавлено: 03.05.10 23:20 |
|
попробуй If Not Лермонтов Then
T1.Caption = "Лермонтов" |
||
|
Номер ответа: 10 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | Цитата | #10 | Добавлено: 04.05.10 12:51 |
| Неравенство в том, что в первой строке используются аналогичные английским русские буквы, отсюда ошибка "такого объекта нет". | ||
|
Номер ответа: 11 Автор ответа: UnDeAdZak Вопросов: 80 Ответов: 476 |
Профиль | Цитата | #11 | Добавлено: 04.05.10 15:00 |
|
а что за:
And O2 Then
And O1 Then
And O3 Then
??? |
||
|
Номер ответа: 12 Автор ответа: VbStarterICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #12 | Добавлено: 04.05.10 16:45 |
| так я же Антону про енто и говорил!? | ||
|
Номер ответа: 13 Автор ответа: VbStarterICQ: 357911808 Вопросов: 118 Ответов: 1340 |
Web-сайт: Профиль | Цитата | #13 | Добавлено: 04.05.10 16:45 |
| ну что, работает? | ||
Страница: 1 |