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

@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

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

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

Памирыч Почетный модератор 23248 / 9160 / 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