ПРОВЕРТЕ ПОЖАЛУЙСТА КОД ....ЧТО -ТО НЕ РАБОТАЕТ

[t;br]

ЗАМЕНИТЬ В ТЕКСТОВОЙ КОНСТАНТЕ ВСЕ СИМВОЛЫ  "A" ,НА СИМВОЛ "*" ,А СИМВОЛЫ "B" УДВОИТЬ??
sub 1 ()
Dim S as string , S1 as string
S ="..."
L%=Len(S)
For I%=1 to L
P$=MID(S,I,1)
If p4="a" then p$="*" else if p$="b" then p$="bb" else S1=S1 & p$
Next I
end sub

[tig81]

ЗАМЕНИТЬ В ТЕКСТОВОЙ КОНСТАНТЕ ВСЕ СИМВОЛЫ  "A" ,НА СИМВОЛ "*" ,А СИМВОЛЫ "B" УДВОИТЬ??
sub 1 ()
Dim S as string , S1 as string
S ="..."
L%=Len(S)
For I%=1 to L
P$=MID(S,I,1)
If p4="a" then p$="*" else if p$="b" then p$="bb" else S1=S1 & p$
Next I
end sub

А есть разница P$ или р$?
И почему начинаете проверять с p4?

[t;br]

ЗАМЕНИТЬ В ТЕКСТОВОЙ КОНСТАНТЕ ВСЕ СИМВОЛЫ  "A" ,НА СИМВОЛ "*" ,А СИМВОЛЫ "B" УДВОИТЬ??
sub 1 ()
Dim S as string , S1 as string
S ="..."
L%=Len(S)
For I%=1 to L
P$=MID(S,I,1)
If p$="a" then p$="*" else if p$="b" then p$="bb" else S1=S1 & p$
Next I
end sub

разницы нет ни какой ....а там я ошибся ...

[t;br]

но программа все ровно не запускается!?

[tig81]

разницы нет ни какой ....а там я ошибся ...

ясно, спасибо

но программа все ровно не запускается!?

давайте подождем, может кто-то из программистов появится...