RE: SOS!!! HELP ME!!!

  • From: Зюркалов Александр Сергеевич <zas@xxxxxxxxxxxx>
  • To: Все - freelists <psygoa_pavlodar@xxxxxxxxxxxxx>
  • Date: Mon, 08 Nov 2004 09:19:07 +0600

Я не знаю Visual Basic, но на QBasic 1-aя задача решается так:
CLS
INPUT "Введите строку>", s$
i = 1
WHILE i <= LEN(s$)
   IF MID$(s$, i, 1) = "{" THEN
       j = i: kol = 0
        WHILE MID$(s$, j, 1) <> "}" AND j <= LEN(s$)
          kol = kol + 1
          j = j + 1
       WEND
       s$ = MID$(s$, 1, i - 1) + MID$(s$, i + kol + 1, LEN(s$) - kol)
       i = i - 1
   END IF
   i = i + 1
WEND
PRINT s$

На Visual Basic нежно просто вместо вывода на экран использовать диалог
сообщения. Я не знаю как это делается в Visual Basic.
Но в Delphi это делается так ShowMessage(s)
Если решение на QBasic тебе подходит, то вторую задачу тоже сделаю...

-- 
С уважением,
  Зюркалов Александр
  Администратор сети

  АО "Алюминий Казахстана"
  zas@xxxxxxxxxxxx
  zsuner@xxxxxxx
  http://www.suner.narod.ru
  icq:58828301




Other related posts: