Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / объявление переменных / 7 сообщений из 7, страница 1 из 1
18.10.2006, 15:28
    #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:34
    #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:38
    #34063928
чаинечек
чаинечек
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
объявление переменных
ну, у меня ведь цикл по переменной А,которая изменяется от Ан до Ак с шагом Нх.Вот так я их объявляю..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2006, 15:44
    #34063953
Nikz
Nikz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
объявление переменных
чаинечекну, у меня ведь цикл по переменной А,которая изменяется от Ан до Ак с шагом Нх.Вот так я их объявляю..
а, блин, понял
Код: plaintext
1.
2.
3.
[color=red]
...
[/color]
это цветовые таги форума :)
ну тогда объявите переменные как я в предыдущем посте написал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2006, 15:49
    #34063975
чаиничек
чаиничек
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
объявление переменных
компилятору не нравится объявление переменных Ан,Ак,Нх!
А и О_ я решила убрать,скорее они там не нужны.Но программа-то не компилируется:((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.10.2006, 16:12
    #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:13
    #34064094
k-nike
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
объявление переменных
Вам же ясно показали, напишите Dim перед каждой объявляемой переменной.

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / объявление переменных / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 523ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2165136]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 188ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 237ms
total:  523ms
x
x
Закрыть


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