Программа не может выйти из цикла

@irineyxxx · Регистрация: 18.09.2011

Студворк — интернет-сервис помощи студентам

После того, как ввожу в The second Option данные, программа вылетает, почему ? Может не правильно код написал ?

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
Private Sub Command1_Click()
Dim k, m, n As Integer
Dim x, x1, T As Single
x1 = Text1.Text
m = Text2.Text
[COLOR="lime"]'The first Option[/COLOR]
If Option1.Value = True Then
T = 0: k = n: x = x1
For k = n To m
T = T + (2 * k + x)
Next k
Label13.Caption = "Used For/Next Method"
Text5.Text = "T = " & Round(T, 2)
End If
[COLOR="Lime"]'The second Option[/COLOR]
If Option2.Value = True Then
T = 0: k = n: x = x1
Do While k <= m
T = T + (2 * k + x)
k = k + n
Loop
Label13.Caption = "Used Do While/Loop"
Text5.Text = "T = " & Round(T, 2)
End If
End Sub

@Апострофф · 08.11.2011, 19:10

1. irineyxxx, пора бы научиться пользоваться тегами!
2. Неправильно объявлены переменые (только n и T заданного типа, остальные Variant)
3. n=0, поэтому из цикла со счетчиком k = k + n ты не выйдешь никогда!

Возможно, это не всё...

Памирыч · 08.11.2011, 19:18

Сообщение от irineyxxx

Dim k, m, n As Integer

А смысл что-то писать/говорить?
Ты как не умел самое элементарное объявлять банальные переменные, так и не научился, хотя говорили, вроде бы тебе, и не один раз, ты опять за старое

@irineyxxx · 08.11.2011, 19:30 **[ТС]**

Памирыч, Ну нас так старый дуб учит ((( у него такие примеры

Добавлено через 8 минут
Памирыч, Все спасибо большое Памирыч. Вот теперь работает и программа не вылетает

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
Private Sub Command1_Click()
Dim k As Integer
Dim m As Integer
Dim n As Integer
Dim x As Single
Dim x1 As Single
Dim T As Single
x1 = Text1.Text
m = Text2.Text
n = Text7.Text
'The first Option
If Option1.Value = True Then
T = 0: k = n: x = x1
For k = n To m
T = T + (2 * k + x)
Next k
Label13.Caption = "Used For/Next Method"
Text5.Text = "T = " & Round(T, 2)
End If
'The second Option
If Option2.Value = True Then
T = 0: k = n: x = x1
Do While k <= m
T = T + (2 * k + x)
k = k + n
Loop
Label13.Caption = "Used Do While/Loop"
Text5.Text = "T = " & Round(T, 2)
End If
End Sub

Памирыч · 08.11.2011, 19:32

irineyxxx, ну вот же! Преподу покажи и сам запомни.

@irineyxxx · 08.11.2011, 19:37 **[ТС]**

Памирыч, Что такое Until ?
Оператор: Do Until
Пример: Loop Until k > m

Памирыч · 08.11.2011, 19:40

Сообщение от irineyxxx

Loop Until k > m

Выполнять, пока k не станет больше, чем m

Если ошибаюсь - ребята поправят.

@irineyxxx · 08.11.2011, 19:43 **[ТС]**

Вот он весь код задания. Посмотрите нету ошибок ? Все ли правильно ?

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
Private Sub Command1_Click()
Dim k As Integer
Dim m As Integer
Dim n As Integer
Dim x As Single
Dim x1 As Single
Dim T As Single
x1 = Text1.Text
m = Text2.Text
n = Text7.Text
'The first Option
If Option1.Value = True Then
T = 0: k = n: x = x1
For k = n To m
T = T + (2 * k + x)
Next k
Label13.Caption = "      Used For/Next"
Text5.Text = "T = " & Round(T, 2)
End If
'The second Option
If Option2.Value = True Then
T = 0: k = n: x = x1
Do While k <= m
T = T + (2 * k + x)
k = k + n
Loop
Label13.Caption = "Used Do While/Loop"
Text5.Text = "T = " & Round(T, 2)
End If
'The third Option
If Option3.Value = True Then
T = 0: k = n: x = x1
Do
T = T + (2 * k + x)
k = k + n
Loop Until k > m
Label13.Caption = "Used Do Until/Loop"
Text5.Text = "T = " & Round(T, 2)
End If
'The Fourth Option
If Option4.Value = True Then
T = 0: k = n: x = x1
1: T = T + (2 * k + x)
k = k + n
If k <= m Then GoTo 1
Label13.Caption = "Used If Then Goto"
Text5.Text = "T = " & Round(T, 2)
End If
End Sub

@gaw · 08.11.2011, 20:03

Сообщение от irineyxxx

Все ли правильно

один из методов - пара-тройка контрольных примеров (с заведомо извесным ответом)

Добавлено через 7 минут

Visual Basic
1
14  For k = n To m  Step n

@irineyxxx · 08.11.2011, 20:13 **[ТС]**

gaw, и что это даст и улучшит ? -

Visual Basic
1
Step n

@gaw · 08.11.2011, 20:27

посмотри строка 14 и
строки 25, 35, 44

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	08.11.2011, 19:10
	1. irineyxxx, пора бы научиться пользоваться тегами! 2. Неправильно объявлены переменые (только n и T заданного типа, остальные Variant) 3. n=0, поэтому из цикла со счетчиком k = k + n ты не выйдешь никогда! Возможно, это не всё... 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	08.11.2011, 19:32
	irineyxxx, ну вот же! Преподу покажи и сам запомни. 1

@irineyxxx 151 / 53 / 11 Регистрация: 18.09.2011 Сообщений: 730
	08.11.2011, 19:37 [ТС]
	Памирыч, Что такое Until ? Оператор: Do Until Пример: Loop Until k > m 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	08.11.2011, 20:27
	посмотри строка 14 и строки 25, 35, 44 0