Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
attentions
2 / 2 / 0
Регистрация: 14.11.2010
Сообщений: 25
1

При компиляции выдает overflov

25.12.2010, 17:03. Просмотров 417. Ответов 4
Метки нет (Все метки)

При компиляции выдает overflov....на 16той строке

Visual Basic
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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
Function fornext(ByVal x As Integer, ByVal sum) As Double
For i = 0 To 20
a = (x - 1) ^ (2 * i + 1)
b = (2 * i + 1)
c = (x + 1) ^ (2 * i + 1)
d = a / (b * c)
sum = sum + d
Next i
fornext = sum
End Function
Function while_wend(ByVal x As Integer, ByVal eps) As Double
i = 0
a = (x - 1) ^ (2 * i + 1)
b = (2 * i + 1)
c = (x + 1) ^ (2 * i + 1)
d = a / (b * c)
sum = d
While d >= esp
i = i + 1
a = (x - 1) ^ (2 * i + 1)
b = (2 * i + 1)
c = (x + 1) ^ (2 * i + 1)
d = a / (b * c)
sum = sum + d
Wend
while_wend = sum
End Function
Function do_while(ByVal x As Integer, ByVal eps) As Double
i = 0
a = (x - 1) ^ (2 * i + 1)
b = (2 * i + 1)
c = (x + 1) ^ (2 * i + 1)
d = a / (b * c)
sum = d
Do While d >= esp
i = i + 1
a = (x - 1) ^ (2 * i + 1)
b = (2 * i + 1)
c = (x + 1) ^ (2 * i + 1)
d = a / (b * c)
sum = sum + d
Loop
do_while = sum
End Function
Function do_until(ByVal x As Integer, ByVal eps) As Double
i = 0
a = (x - 1) ^ (2 * i + 1)
b = (2 * i + 1)
c = (x + 1) ^ (2 * i + 1)
d = a / (b * c)
sum = d
Do Until d < esp
i = i + 1
a = (x - 1) ^ (2 * i + 1)
b = (2 * i + 1)
c = (x + 1) ^ (2 * i + 1)
d = a / (b * c)
sum = sum + d
Loop
do_until = sum
End Function
Function do_loop(ByVal x As Integer, ByVal eps) As Double
i = 0
a = (x - 1) ^ (2 * i + 1)
b = (2 * i + 1)
c = (x + 1) ^ (2 * i + 1)
d = a / (b * c)
sum = d
Do
i = i + 1
a = (x - 1) ^ (2 * i + 1)
b = (2 * i + 1)
c = (x + 1) ^ (2 * i + 1)
d = a / (b * c)
sum = sum + d
Loop While d >= esp
do_loop = sum
End Function
Function do_loop_until(ByVal x As Integer, ByVal eps) As Double
i = 0
a = (x - 1) ^ (2 * i + 1)
b = (2 * i + 1)
c = (x + 1) ^ (2 * i + 1)
d = a / (b * c)
sum = d
Do
i = i + 1
a = (x - 1) ^ (2 * i + 1)
b = (2 * i + 1)
c = (x + 1) ^ (2 * i + 1)
d = a / (b * c)
sum = sum + d
Loop Until d < esp
do_loop_until = sum
End Function
Private Sub CommandButton2_Click()
x = TextBox1.Text
y = Log(x)
TextBox3.Text = y
End Sub
 
Private Sub CommandButton3_Click()
x = TextBox1.Text
sum = 0
y = fornext(x, sum)
TextBox4.Text = y * 2
End Sub
 
Private Sub CommandButton4_Click()
x = TextBox1.Text
eps = TextBox2.Text
sum_while_wend = while_wend(x, eps)
sum_while = sum_while_wend * 2
TextBox5.Text = sum_while
End Sub
Private Sub CommandButton5_Click()
x = TextBox1.Text
eps = TextBox2.Text
y = do_while(x, eps)
TextBox6.Text = y * 2
End Sub
 
Private Sub CommandButton6_Click()
x = TextBox1.Text
eps = TextBox2.Text
y = do_until(x, eps)
TextBox7.Text = y * 2
End Sub
 
Private Sub CommandButton7_Click()
x = TextBox1.Text
eps = TextBox2.Text
y = do_loop(x, eps)
TextBox9.Text = y * 2
End Sub
 
Private Sub CommandButton8_Click()
x = TextBox1.Text
eps = TextBox2.Text
y = do_loop_until(x, eps)
TextBox8.Text = y * 2
End Sub

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2010, 17:03
Ответы с готовыми решениями:

В ассеsse2000 при компиляции модуля выдает ошибку на строки Dim DB As Database Dim q1 As QueryDef
В ассеsse2000 при компиляции модуля выдает ошибку на строки Dim DB As Database...

Ошибка при компиляции
Доброго дня всем! Я отнюдь не программист, но кое-какие навыки все же имею,...

Что происходит при компиляции?
От нечего дилать изучаю VB и VBA. Не могу понять, что происдит (создаётся? и...

Ошибки компиляции при открытии на другом компьютере
Сначала пишет что ошибка при компиляции. Захожу в код и пишет что нужно...

При компиляции файла справки получаются иероглифы
Привет ! Хотел создать файл справки в программе workshop, но при компиляции...

4
Busine2009
Заблокирован
25.12.2010, 19:10 2
attentions,
сначала это исправьте (раньше было в журналах: найдите 10 отличий):
Цитата Сообщение от attentions Посмотреть сообщение
Function while_wend(ByVal x As Integer, ByVal eps) As Double
Цитата Сообщение от attentions Посмотреть сообщение
While d >= esp
Чтобы таких косяков не было, надо в самый верх модуля поместить:
Visual Basic
1
Option Explicit
1
attentions
2 / 2 / 0
Регистрация: 14.11.2010
Сообщений: 25
25.12.2010, 19:55  [ТС] 3
исправил))без ошибок теперь))но.....не сходятся результаты....хотя должны
0
Миниатюры
При компиляции выдает overflov  
Busine2009
Заблокирован
25.12.2010, 21:06 4
attentions,
не понятно, как должно быть. Экспортируйте форму на рабочей стол. На рабочем столе появятся 2 файла. Заархивируйте их и вставьте сюда.
1
attentions
2 / 2 / 0
Регистрация: 14.11.2010
Сообщений: 25
26.12.2010, 11:32  [ТС] 5
вот два файла
0
Вложения
Тип файла: zip Рабочий стол.zip (2.0 Кб, 7 просмотров)
26.12.2010, 11:32
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2010, 11:32

Ошибка в компиляции в запросе к бд при переносе приложения на другой ПК
Подскажите в какую сторону двигаться для устранения ошибки. На одном компьютере...

Выдает ошибку при запуске макроса!
Создать программный код, в котором ввод данных осуществляется функцией...

Ошибка при компиляции: Compil error (Can't find project or library)
Писал дома прогу-все нормально, а потом решил проверить как будет работать на...


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

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

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