Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > VB6 > Проблема с циклом и двумя формами


Автор: fri 28.12.2008, 12:55
Суть проблемы такова:нужно что б во 2-й форме вывело все 20 значений m, а выводит только при n=1 

Код

Private Sub Command1_Click()
For n = 1 To 20
m = (21.3 + n * 10) / (2 * n + 1)
Next n
Unload Form1
Load Form2
Form2.Show 1
End Sub

Private Sub Form_Load()
Text1.Text = Text1.Text + "m=" + Str(m)
End Sub

Автор: fri 28.12.2008, 13:45
Понял в чем проблема, проблема в модуле ,а вот какой модуль может сохранить все значения m ,а не только последние???

Автор: Naghual 28.12.2008, 17:01
Проблема не в модуле.  Проблема в непонимании.
Вы с массивом чисел должны работать а не с единичной переменной.

Автор: Akina 28.12.2008, 21:04
Цитата(fri @  28.12.2008,  14:45 Найти цитируемый пост)
какой модуль может сохранить все значения m ,а не только последние??? 

Common module. Но в первую очередь читаем, что говорит Naghual.

Автор: I_Am_Rock 29.12.2008, 00:15
Цитата(fri @  28.12.2008,  12:55 Найти цитируемый пост)
 а выводит только при n=1 

Хмм... странно. Мне почему-то кажется, что в Вашем коде должно выводиться только при n=20

Цитата

все 20 значений m

Вот вы подумайте - как у одной переменной m может быть 20 значений?.. А вот если вы сделаете m(1), m(2)... smile

Я просто боюсь, что господин fri иначе не поймет, что имел в виду господин Naghual. smile

Автор: Данкинг 29.12.2008, 00:21
Цитата(fri @  28.12.2008,  13:45 Найти цитируемый пост)
Понял в чем проблема,

В том, что на выходе из цикла ты получаешь одно-единственное значение M, которое, по идее, действительно должно равняться тому, что будет по формуле при N=20.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)