|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
18.05.2011, 17:57
|
#1 |
|
Новичок
Джуниор
Регистрация: 18.05.2011
Сообщений: 1
|
Алгоритм решения в Бейсике. Спасайте, реферат!!!
Помогите вставить в эту программу метод Sub Main. И вообще посмотрите правильна ли программа? Задача: входят ли слова в предложение.
Private Sub Command1_Click() Dim sl As String Dim pr As String pr = InputBox("Введите предложение") sl = InputBox("Введите слово") If InStr(1, pr, sl) > 0 Then MsgBox("Cлово '" & sl & "' в предложении '" & pr & "'" & Chr(13) & " ЕСТЬ!!!") Else MsgBox("Cлова '" & sl & "' в предложении '" & pr & "'" & Chr(13) & " НЕТ ;(") End if End Sub |
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Алгоритм решения сравнений | outaccess | Помощь студентам | 0 | 02.05.2011 14:55 |
| Алгоритм решения судоку | Alistan | Общие вопросы C/C++ | 5 | 27.04.2011 16:00 |
| Алгоритм на Бейсике | olyntik | Помощь студентам | 1 | 04.10.2010 19:08 |
| Алгоритм решения | Naruto63 | Помощь студентам | 6 | 20.09.2009 22:47 |
| Подскажите алгоритм решения | Blad47 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 10.11.2008 19:50 |
