Цикл с регулярной сменой аргумента, проблема вывода результатов. / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Цикл с регулярной сменой аргумента, проблема вывода результатов.

5 сообщений из 5, страница 1 из 1

Цикл с регулярной сменой аргумента, проблема вывода результатов.

#37131171

Satanarchist

Гость

Всем доброго времени суток) У меня небольшая проблемка приключилась. Дали нам задание написать программку "Цикл с регулярной сменой аргумента", ну я написал -

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Private Sub Command1_Click()
Dim d As Double
Dim a As Double
Dim b As Double
Dim p As Double
a =  8 . 3 
b =  1 . 43 
For p = - 6 . 24  To - 4 . 74  Step  0 . 15 
d =  2  * (Abs(p + (Abs(p - a) ^  0 . 25 )) * Exp(b)) ^ ( 1  / -p)
Print "d="; Format(d, "###.####")
Next p
End Sub

НО! Преподавателю вдруг взбрело в голову, что вывод всех этих десяти значений d необходимо делать в текстовое поле, простой Print не катит. Не подскажете, как это сделать, не переписывая все 10 раз для каждого значения? Заранее благодарен за ответ.

...

Рейтинг:

0 / 0

22.02.2011, 18:21

| Ответить | Цитировать | Написать

Цикл с регулярной сменой аргумента, проблема вывода результатов.

#37131172

Satanarchist

Гость

* по простому Text1.Text=d выводится только последнее значение, а мне нужны все десять

...

Рейтинг:

0 / 0

22.02.2011, 18:23

| Ответить | Цитировать | Написать

Цикл с регулярной сменой аргумента, проблема вывода результатов.

#37131182

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

Satanarchist* по простому Text1.Text=d выводится только последнее значение, а мне нужны все десять

Код: plaintext

Text1.Text=Text1.Text & CStr(d) & ";"

...

Рейтинг:

0 / 0

22.02.2011, 18:29

| Ответить | Цитировать | Написать

Цикл с регулярной сменой аргумента, проблема вывода результатов.

#37131190

Satanarchist

Гость

Спасибо) Хотя приходится растягивать это самое текстовое поле на весь экран, чтоб поместились все значения.

...

Рейтинг:

0 / 0

22.02.2011, 18:34

| Ответить | Цитировать | Написать

Цикл с регулярной сменой аргумента, проблема вывода результатов.

#37131268

TpaBka

Участник

Сообщения: 564

Рейтинг: 0 / 0

SatanarchistСпасибо) Хотя приходится растягивать это самое текстовое поле на весь экран, чтоб поместились все значения.
Можно так:
Поставь multiline=true у Text1

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Private Sub Command1_Click()
Text1.Text = "" 
Dim d As Double
Dim a As Double
Dim b As Double
Dim p As Double
a =  8 . 3 
b =  1 . 43 
For p = - 6 . 24  To - 4 . 74  Step  0 . 15 
d = Format( 2  * (Abs(p + (Abs(p - a) ^  0 . 25 )) * Exp(b)) ^ ( 1  / -p), "###.####")
Text1.Text = IIf(Text1.Text = "", CStr(d) & ";", Text1.Text & vbCrLf & CStr(d) & ";")
Next p
End Sub

...

Рейтинг:

0 / 0

22.02.2011, 19:45

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=107&tid=2158939]:	0ms
get settings:	10ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	30ms
get topic data:	13ms
get forum data:	3ms
get page messages:	48ms
get tp. blocked users:	2ms
others:	229ms

total:	353ms