ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / объявление переменных
7 сообщений из 7, страница 1 из 1
объявление переменных
    #34063886
чаиничек
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чаиничек
Гость
Привет народ:))знаю.для кого-то мой вопрос покажется глупым..но мне нужна помощь!На VBA программирую впервые,на этапе объявления моих переменных возникает такая ошибка "Statement invalid outside type block"..Что это значит и как с этим бороться?:-))
Код: plaintext
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.
Sub primer()
Dim an As Single
[color=red]ak As Integer
hx As Integer
a As Integer
q As Integer[/color]an = Cells( 2 ,  1 )
ak = Cells( 3 ,  1 )
hx = Cells( 4 ,  1 )
Cells( 6 ,  1 ) = "результат"
For a = an To ak Step hx
    If e ^ (-a) <  0 . 1  Then
    q =  0 
        For i =  1  To  10 
        q = q + ( 1  + Cos( 0 . 1  * i))
        Next i
        Cells( 7 ,  1 ) = q
     Else
     q =  3 . 14  / Sin( 0 . 5  * a)
     Cells( 7 ,  3 ) = a
     End If
     Next a
     Cells( 8 ,  1 ) = q
     Cells( 8 ,  4 ) = a
     
        

End Sub
...
Рейтинг: 0 / 0
18.10.2006, 15:28
| Ответить | Цитировать | Написать  
объявление переменных
    #34063913
Nikz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikz
Участник
Код: plaintext
1.
2.
3.
4.
5.
Dim an As Single
Dim ak As Integer
Dim hx As Integer
Dim a As Integer
Dim q As Integer
честно говоря этих строчек
Код: plaintext
1.
2.
3.
[color=red]ak As Integer
...
q As Integer[/color]an = Cells( 2 ,  1 )
я не понял...
...
Рейтинг: 0 / 0
18.10.2006, 15:34
| Ответить | Цитировать | Написать  
объявление переменных
    #34063928
чаинечек
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чаинечек
Гость
ну, у меня ведь цикл по переменной А,которая изменяется от Ан до Ак с шагом Нх.Вот так я их объявляю..
...
Рейтинг: 0 / 0
18.10.2006, 15:38
| Ответить | Цитировать | Написать  
объявление переменных
    #34063953
Nikz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikz
Участник
чаинечекну, у меня ведь цикл по переменной А,которая изменяется от Ан до Ак с шагом Нх.Вот так я их объявляю..
а, блин, понял
Код: plaintext
1.
2.
3.
[color=red]
...
[/color]
это цветовые таги форума :)
ну тогда объявите переменные как я в предыдущем посте написал
...
Рейтинг: 0 / 0
18.10.2006, 15:44
| Ответить | Цитировать | Написать  
объявление переменных
    #34063975
чаиничек
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чаиничек
Гость
компилятору не нравится объявление переменных Ан,Ак,Нх!
А и О_ я решила убрать,скорее они там не нужны.Но программа-то не компилируется:((
...
Рейтинг: 0 / 0
18.10.2006, 15:49
| Ответить | Цитировать | Написать  
объявление переменных
    #34064088
Nikz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nikz
Участник
чаиничеккомпилятору не нравится объявление переменных Ан,Ак,Нх!
А и О_ я решила убрать,скорее они там не нужны.Но программа-то не компилируется:((
Код: plaintext
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.
Sub primer()
Dim an As Single
Dim ak As Integer
Dim hx As Integer
Dim a As Integer
Dim q As Integer

an = Cells( 2 ,  1 )
ak = Cells( 3 ,  1 )
hx = Cells( 4 ,  1 )
Cells( 6 ,  1 ) = "результат"
For a = an To ak Step hx
    If e ^ (-a) <  0 . 1  Then
    q =  0 
        For i =  1  To  10 
        q = q + ( 1  + Cos( 0 . 1  * i))
        Next i
        Cells( 7 ,  1 ) = q
     Else
     q =  3 . 14  / Sin( 0 . 5  * a)
     Cells( 7 ,  3 ) = a
     End If
     Next a
     Cells( 8 ,  1 ) = q
     Cells( 8 ,  4 ) = a       

End Sub
все замечательно компилируется
...
Рейтинг: 0 / 0
18.10.2006, 16:12
| Ответить | Цитировать | Написать  
объявление переменных
    #34064094
Фотография k-nike
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
k-nike
Участник
Вам же ясно показали, напишите Dim перед каждой объявляемой переменной.

...
Рейтинг: 0 / 0
18.10.2006, 16:13
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / объявление переменных
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34063886&tid=2165136]:
 0ms
get settings:
 11ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 183ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 233ms
total:  509ms
созд. / загр.: 509ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]