| Вопрос: Не могу разобраться в чем ошибка | Добавлено: 21.10.07 12:58 |
Автор вопроса:  Денис
|
|
вот код программы. Пишет что синтаксическая ошибка
Dim a As Integer 'a и b целые числа Dim b As Integer Private Sub Command1_Click() Randomize a = Int(2 * Rnd) 'Компьютер загадывает целое число от 0 до 1 b = InputBox("1 или 0?") 'Вы угадываете число lf a=b Then MsgBox ("угадал!") Else MsgBox ("не угадал!") 'Если угадал - выходит сообщение "угадал!" 'Если не угадал - выходит сообщение "не угадал!" End Sub |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Softer ICQ: 203660381 Вопросов: 29 Ответов: 205 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 21.10.07 13:34 |
| Скобки в MsgBox убери, ты вызываешь его как процедуру, а не фун-цию. | ||
|
Номер ответа: 2 Автор ответа: Агент Вопросов: 3 Ответов: 16 |
Профиль | Цитата | #2 | Добавлено: 21.10.07 16:27 |
|
Делай так:
Dim a As Integer 'a и b целые числа Dim b As Integer Private Sub Command1_Click() Randomize a = Int(2 * Rnd) 'Компьютер загадывает целое число от 0 до 1 b = InputBox("1 или 0?"  'Вы угадываете число
lf a=b Then MsgBox "угадал!" Else MsgBox "не угадал!" 'Если угадал - выходит сообщение "угадал!" 'Если не угадал - выходит сообщение "не угадал!" End Sub |
||
|
Номер ответа: 3 Автор ответа: Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 21.10.07 18:48 |
|
Ахахаа! жгёте)))
Option Explicit
Dim a As Integer 'a и b целые числа Dim b As Integer Private Sub Command1_Click() Randomize a = Int(2 * Rnd) 'Компьютер загадывает целое число от 0 до 1 b = InputBox("1 или 0?" 'Вы угадываете число
If a = b Then MsgBox ("угадал!" Else MsgBox ("не угадал!" 'Если угадал - выходит сообщение "угадал!" 'Если не угадал - выходит сообщение "не угадал!"
End Sub Казалось бы - то же самое)) НО "If" пишется через "i", а не через "L" |
||
|
Номер ответа: 4 Автор ответа: SofterICQ: 203660381 Вопросов: 29 Ответов: 205 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 21.10.07 18:52 |
| Ха! Такого я еще не видел!!! )))))))) | ||
|
Номер ответа: 5 Автор ответа: StuartВопросов: 5 Ответов: 152 |
Профиль | Цитата | #5 | Добавлено: 21.10.07 22:28 |
Мда, ну даёте )))
|
||
|
Номер ответа: 6 Автор ответа: Silver FerrumICQ: 422640045 Вопросов: 12 Ответов: 144 |
Профиль | Цитата | #6 | Добавлено: 22.10.07 00:09 |
| ну очипятался парень.. с кем не бывает)) ы | ||
|
Номер ответа: 7 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | Цитата | #7 | Добавлено: 22.10.07 00:39 |
| Денис, операторы If, Then, Else, End If и т.п. в VB (и не только) выделяются синим (по умолчанию) цветом. Странно, что ты этого не заметил. | ||
|
Номер ответа: 8 Автор ответа: АгентВопросов: 3 Ответов: 16 |
Профиль | Цитата | #8 | Добавлено: 22.10.07 15:43 |
|
Казалось бы - то же самое)) НО "If" пишется через "i", а не через "L"
И правда, а я даже и не заметил. Тупо код скопировал и всё
|
||
Страница: 1 |