Задача VB 2005

[kantorez]

Сижу на экзе,плиз помогите решить задачку

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

Решаем в Visual studio 2005

Плиз,если ктото сможет,вроде несложная

[kantorez]

пока вот что написал
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, d As Single
a = InputBox("Введите значение a")
b = InputBox("Введите значение b")
c = InputBox("Введите значение c")
d = InputBox("Введите значение d")
if a<b,then
c = 2 * (a - b)
d = 0
while c>a then
d=d+1, c=c-1
End While
End If
End Sub
End Class
может ктонибуль поможет ? (=

[kantorez]

как написать на VB эту строку??!!
пока c>a выполнить действия d=d+1, c=c-1
пока это while а выполнить дейтсвие это что?

[Sazary]

На qbasic примерно так.
Сам цикл выделил

DIM a, b, c, d AS SINGLE
INPUT "enter a: "; a
INPUT "enter b: "; b
INPUT "enter c: "; c
INPUT "enter d: "; d
IF a < b THEN
 c = 2 * (a - b)
 d = 0
END IF

DO WHILE c > a
d = d + 1
c = c - 1
LOOP

PRINT USING "c= ###, d=###"; c; d

END

[kantorez]

а что такое Print using?

[Sazary]

вывод строки (выводит c и d). Но это для консоли.
Как вывести это в Visual basic не знаю... Можно, например, в текстовое поле.

[kantorez]

аууу,черт,помогите мне написать эту чертову программу!! ...
нехочу встречать своё 19-летие и каникулы с мыслями что у меня есть ещё долги в универе (((

[Sazary]

kantorez А что еще здесь надо написать? Программа написана выше.. Нужно только заменить консольный ввод/вывод (например, на текстовые поля).

[kantorez]

что такое консольный ввод\вывод? что за текстовые поля?
я почти не разбираюсь в программировании

[Sazary]

kantorez Чему же вас тогда учили целый семестр?

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

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

End Sub

Думаю, накидать на форму 6 TextBox'ов и одну кнопку сможете.
Не спрашивайте "что такое TextBox?". Если вы работаете в VB, то, как минимум, должны знать его интерфейс и элементы управления.

Я НЕ пишу на VB, но разобрался в нем за 10 минут.