Вот скрипт программы но он работает не так надо! Помогите разобраться почему. Он должен выводить предложение без самого длинного слова. Условие задачи такое: Удалить из строки самое длинное слово.
<html>
<head>
<title>123</title>
<script language="vbscript">
Sub cmdDo_Onclick
dim a
a=inputbox("Введите предложение")
a=trim(a) & " "
n=len(a)
for i=1 to n
c=mid(a,i,1)
if c <> " " then
w=w+c
else
msgbox w
w=" "
do while (mid(a,i,1)<>" ") and (i=n)
n1=len(c)
i=i+1
k=i-n1
loop
end if
next
a=mid(a,1,k-1)& mid(a,k+n1)
msgbox a
end sub
</script>
</head>
<body>
<input type=button name=cmdDo value="Кнопка">
</body>
<html>
Помогите разобраться
Сообщений: 2
• Страница 1 из 1
- baiba_89
- Начинающий
- Сообщения: 7
- Зарегистрирован: 16.10.2006 (Пн) 8:01
Помогите разобраться
baiba_89 » 16.10.2006 (Пн) 12:10
Сообщений: 2
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 13