Задача VB 2005

[kantorez]

мля!! просто окно пустое вылетает и всЁ! даже если я накидаю кнопок туда,всё равно пустое окно !


и я не понял,зачем 6 текст боксов?

[Sazary]

и я не понял,зачем 6 текст боксов?

4 - для переменных (a,b,c,d), 2- для вывода измененных переменных (c,d)
Если вам не нравится, можете сделать по-своему.
Прикрепил весь проект, а заодно и скрин окна программы.

Советую вам изучить среду, в которой работаете. Без этого вы далеко не уйдете.

[kantorez]

Супер! спасибо!
Цифры получаются!! ))
Только вы наверно чуть чуть не поняли.
там суть такая что вводить надо толко а и б (а именно в а - 8 а в б - 3) но цифры естесно должен вводить пользователь , а в рамках ц и д должны появиться рез-ты!
никаких новых или старых ц и д ненадо
Не могли бы вы подсказать,что в коде надо исправить?
Оггггромнейшее вам спасибо!!!

[Sazary]

там суть такая что вводить надо толко а и б , а в рамках ц и д должны появиться рез-ты!

Дело в том, что у вас задание:

если a<b, то c=2*(a-b)
d=0
пока c>a выполнить действия d=d+1, c=c-1

.. а что делать, если a>=b не сказано.

Что ж.. Удалите с формы Text3 и Text4. А вот новый листинг. При нажатии на кнопку, если a>=b, ничего не произойдет.

Private Sub Command1_Click()
Dim a, b, c, d As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
If a < b Then
 c = 2 * (a - b)
 d = 0

Do While c > a
d = d + 1
c = c - 1
Loop

Text5.Text = Str(c)
Text6.Text = Str(d)
End If
End Sub

[kantorez]

ну не может такого быть,что a>=b ..
там должны быть какие нибудь цифры..хоть нули..
если в условии нет a>=b это не значит что надо самому такое придумывать..не в коем случае не сочтите за грубость,просто как то не укладывается в голове всё это..
а можно сделать чтобы в textBox5 и 6 появлялись какиелибо цифры? ну не случайные конечно,незнаю,ну по другому чтобы решение было,без этого a>=b

[Sazary]

kantorez

ну не может такого быть,что a>=b ..
там должны быть какие нибудь цифры..хоть нули..

Честно говоря, вообще не понял фразу.
Что значит "не может такого быть,что a>=b .."?
Почему А не может быть больше или равна Б?

а можно сделать чтобы в textBox5 и 6 появлялись какиелибо цифры? ну не случайные конечно,незнаю,ну по другому чтобы решение было,без этого a>=b

Там и так появляются цифры, если соблюдено условие (a<b).

Еще один вариант: если a<b, то выполняется цикл, если a>=b, то выводятся нули

Private Sub Command1_Click()
Dim a, b, c, d As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
If a < b Then
 c = 2 * (a - b)
 d = 0

Do While c > a
d = d + 1
c = c - 1
Loop
Else
c = 0
d = 0
End If
Text5.Text = Str(c)
Text6.Text = Str(d)

End Sub

Просьба: выражайте свои мысли яснее (а лучше с примерами)

[kantorez]

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

kantorez

Честно говоря, вообще не понял фразу.
Что значит "не может такого быть,что a>=b .."?
Почему А не может быть больше или равна Б?

В условии написано : если a<b то с = 2*(a-b) bla bla bla
зачем создавать себе какието трудности? если уж решать,то четко по условию..
Попробую рассуждать логически
по условию а=8 б=3
с = 2* (8-3) = 10
с=10
далее
d по условию =0
d= d+1 = 1
c=c-1=9
c=9
получается,что при вводе в программе в TextBox 1 and 2 чисел 8 и 3 в textBox 5 and 6 должны быть числа 9 и 1 !
Вот я непонимаю совсем,почему их нет.
Объясните пожалуйста,если вы ещё не спите

[Sazary]

kantorez Что ж, будем последовательны:
Задание:

если a<b, то c=2*(a-b)
d=0
пока c>a выполнить действия d=d+1, c=c-1
Написать программу по алгоритму для вычисления и вывода значений переменных c и d ,
при начальных значениях a=8, b=3

Если сделать только то, что здесь написано (как вы хотите - "зачем создавать себе какието трудности? если уж решать,то четко по условию.."), то программа не будет работать как надо.
Ведь
c=2*(a-b)
d=0
выполняется, когда a<b (А МЕНЬШЕ Б). Но, опять же, по условию, a=8, b=3.
То есть А БОЛЬШЕ Б (8>3). Понимаете? Поэтому программа и ничего не выводит.
Поменяйте значение a и b (a=3, b=8) и выполнится хотя бы условие.

Идем дальше. Пусть a=3, b=8.
c теперь равно 2*(3-8), то есть -10. d=0.
Дошли до цикла.

пока c>a выполнить действия d=d+1, c=c-1

но c=-10, а a=3. Цикл не выполнится ни разу!

В общем, считаю, что задание написано неверно.

[kantorez]

Спасибо
Попробую завтра объяснить это преподовательнице

[Sazary]

Не поленился и расписал на бумаге:
Имеем систему (из условия)
{c>a
{a<b
{c=2(a-b) = 2a-2b
----------
2a-2b>a -> a>2b
имеем:
2b<a<b
---
Это говорит о том, что b<0 (и, следовательно, a<0)
То есть ни 8, ни 3 под это условие не подходят.

На всякий случай проверьте еще раз. И эти преобразования (вместе с начальным условием), думаю, можно показывать преподавателю.

Как начальные значения для a и b могут выступать соответственно -7 и -6.