Форум программистов, компьютерный форум, киберфорум
Наши страницы
JavaScript
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
Стас45rus
1 / 1 / 2
Регистрация: 12.04.2010
Сообщений: 121
1

Не работают скрипты VBScript в Google Chrom

23.09.2012, 09:08. Просмотров 1344. Ответов 1
Метки нет (Все метки)

Здравствуйте все.
Подскажите пожалуйста. Имеется HTML-документ со встроенным скриптом VBScript. В браузере Internet Explorer всё работает замечательно, а вот в Google Chrom тишина. Т.е. документ загружается, кнопка появляется, но при нажатии на неё не происходит ни каких действий. Заранее спасибо. Вот код:
HTML5
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
<html>
<head>
    <title>Палиндром</title>
    <script type="text/vbscript" language=VBScript>
    <!--
    Dim mas()
    Dim arr()
    'Процедура переворота массива (числа)
    Sub Coup_Of(k)
        for i=1 to k\2
            r=arr(i-1)
            arr(i-1)=arr(k-i)
            arr(k-i)=r
        next
    End Sub
    Sub but_OnClick()
        n=0
        'Ввод числа и проверка корректности ввода
        do
            n=inputbox("Введите число:","Числа","0",1000,1000)
            if (n<0) or (n>2147483647) then
                x=msgbox("Диапазон ввода от 0 до 2 147 483 647." _
                          &chr(10)&chr(13)&"Попробуйте ещё раз.",16,"Ошибка")
            end if
        loop while (n<0) or (n>2147483647)
        'Определить разрядность числа
        p=n                                 'Копировать введённое число
        count=0                             'Количество разрядов числа
        do while p>0
            p=p\10
            count=count+1
        loop
        ReDim mas(count-1)                    'Определить размер массива
        'Записать число в массив
        for i=0 to count-1
            mas(i)=n mod 10
            n=n\10
        next
        kol=0                                 'Количество обращений к процедуре переворота числа
        if count<>1 then                      'Проверка разрядности числа
            flag=false                        'Признак окончания работы основного цикла
            do while flag=false
                'Проверить, является ли число палиндромом
                cnt=count-1                   'Индекс крайнего элемента массива
                for i=1 to count\2
                    if mas(i-1)=mas(cnt) then
                        cnt=cnt-1
                        flag=true
                    else
                        flag=false
                        exit for
                    end if
                next
                if flag=false then            'Если число не палиндром, то
                    ReDim arr(count-1)        '1. Определить размер вспомогательного массива
                    for i=0 to count-1        '2. Присвоить вспомогательному массиву
                        arr(i)=mas(i)         '   элементы основного массива
                    next
                    kol=kol+1
                    call Coup_Of(count)       '3. Обратиться к процедуре переворота массива
                    ReDim Preserve mas(count) '4. Переопределить размерность массива с сохранением
                                              '   старых значений элементов
                    mas(count)=0
                    for i=0 to count-1        '4. Сложить массивы поэлементно
                        if (mas(i)+arr(i))<10 then
                            mas(i)=mas(i)+arr(i)
                        else                     
                            mas(i)=(mas(i)+arr(i)) mod 10
                            mas(i+1)=mas(i+1)+1  
                        end if                   
                    next                         
                    if mas(count)=0 then       'Если крайний элемент массива равен 0, то
                        ReDim Preserve mas(count-1) 'разрядность числа не увеличилась
                    else                       'Иначе,
                        count=count+1          'увеличить разряд на 1
                    end if
                end if
            loop
        end if
        'Вывод результата
        st="Палиндром: "
        for i=count-1 to 0 step -1
            st=st&cstr(mas(i))
        next
        alert st&chr(10)&chr(13)& _
              "Количество шагов для получения палиндрома: "&kol
    End Sub
    '-->
    </script>
</head>
<body bgcolor=#8FBC8F>
    <form>
        <div align=center><textarea cols=50 rows=10 wrap=soft readonly>
Натуральное число называется палиндромом, если оно читается одинаково с обеих сторон (например, 171). Возьмем произвольное натуральное число X. Если оно не палиндром, то перевернем его и сложим с исходным числом. Если сумма не является палиндромом, то проделаем с ней указанные операции. Работу продолжать до тех пор, пока не получится палиндром. 
        </textarea></div><br>
        <div align=center><input type=button name=but value=Палиндром></div>
    </form>
</body>
</html>
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.09.2012, 09:08
Ответы с готовыми решениями:

Почему некоторые скрипты в Google Chrome работают не так, как надо?
Почему некоторые скрипты в Google Crome работают не так как надо, в то время...

Не работают скрипты на https домене
Установил один и тот же шаблон сайта на домен со сертификатом (https), и этот...

Не работают скрипты при локальном запуске сайта
Всем привет) У меня такая проблема, в рабочей версии сайта не работают скрипты...

Не работают скрипты в ie при переходе на внутренние страницы
Здравствуйте! Не работают скрипты в ie при переходе главной на внутренние...

Не работают скрипты в подгруженном через AJAX документе
Добрый день! Использую AJAX для подгрузки контента: function loadHTML(sURL) {...

1
Vovan-VE
13157 / 6542 / 1038
Регистрация: 10.01.2008
Сообщений: 15,070
23.09.2012, 13:36 2
Цитата Сообщение от Стас45rus Посмотреть сообщение
со встроенным скриптом VBScript. В браузере Internet Explorer всё работает замечательно
VBScript работает только в IE и больше ни в каких других нормальных браузерах. Используйте JavaScript.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.09.2012, 13:36

В браузере Mozilla Firefox не работают мои java скрипты
Здравствуйте! Подскажите, пожю., у меня в браузере Mozilla Firefox не...

Как скрипты видят другие скрипты, которые были объявлены ранее?
Может кто-нибудь объяснить как реализовано то, что у нас скрипт, который был...

Скрипты в Google spreadsheets
Здравствуйте. Подскажите как написать скрипт который будет заполнять таблицу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru