| Вопрос: Разница между числами и последующий ряд чисел?VB6 | Добавлено: 17.03.10 19:35 |
Автор вопроса:  Gens
|
|
Всем привет))
Задача такая: Допустим на форме два Textbox в который вводится два числовых значения,одно из которых больше другое меньше.Нужно найти разницу этих чисел и вывести ряд из 10 чисел с добавлением этой разницы к меньшему значению.Но должно соблюдаться условие,допустим если разница равно (310,320,344,350) то происходит округление в меньшую сторону т.е округлятся должно до 300,а если значение (460,476,480) округление происходит до 500.И все это выводится в 10 Textbox'ов Долго мучился и пришел к такому странному решению,но оно не совсем корректно это выполняет. nemin = CDbl(Text2.Text) nemax = CDbl(Text3.Text) H = (nemax - nemin) / 10 H = Round(H) * 0.01 H = Round(H) H = Round(H) * 100 Text11.Text = H '''''Разница чисел Text44.Text = Text2.Text Text45.Text = Text44.Text + H Text46.Text = Text45.Text + H Text47.Text = Text46.Text + H Text48.Text = Text47.Text + H Text49.Text = Text48.Text + H Text50.Text = Text49.Text + H Text51.Text = Text50.Text + H Text52.Text = Text51.Text + H Text53.Text = Text3.Text |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Just Вопросов: 4 Ответов: 330 |
Профиль | | #1 | Добавлено: 17.03.10 22:01 |
|
так проблема в округлении??
если да, то можно попробывать так: Round(Value, 0) - округление к ближайшему целому Round(Value + 0.5 , 0) - округление к большему Round(Value - 0.5 , 0) - округление к меньшему или др варианты: FormatNumber(Value, 0) Format(Value, "#0" 
Int(Value) |
||
Страница: 1 |