Задания по Visual Basic 6.0

@Olga_Pak · Регистрация: 08.11.2010

Author24 — интернет-сервис помощи студентам

Привет, помогите пожалуйста!!! Мне нужно решить задачку по VB, всего одну. Тема: "Условные переходы. Одномерные массивы". Вот задача: Даны целые числа a, b, c. Если a<b<c, то все числа заменить их квадратами, если a>b>c, то каждое число заменить наибольшим из них, в противном случае сменить знак каждого числа.

@Alex77755 · 08.11.2010, 21:37

Так дай хоть шанс тебе помочь! Начни что-то делать!

@Olga_Pak · 08.11.2010, 21:43 **[ТС]**

Так я поэтому и обратилась за помощью! Помогите начать! Пожалуйста)

@Alex77755 · 08.11.2010, 21:55

Даже не знаю чем можно помочь..
Сказать что начни с посещения лекций, практических занятий.. Ну в крайнем случае с простенькой книжечки.
Как можно помочь человеку, который ничего не делает?
Ну начни с того, что запусти программу VB6 и создай "Standart EXE"
Брось на форму кнопку и напиши в создавшейся процедуре нужный тебе код. Если он будет работать не так, как тебе хотелось бы - скопируй код сюда и задай конкретный вопрос и тебе помогут разобраться

@Olga_Pak · 08.11.2010, 22:40 **[ТС]**

Проблема в том, что я не знаю какой код нужен, форму я создала, поместила три текстовых поля (для ввода чисел a, b, c) и три метки (соответственно, по условию задачи, если a<b<c, то в метках числа заменятся их квадратами, если a>b>c, то каждое число заменится наибольшим из них, в противном случае сменится знак каждого числа), поместила кнопку. Вот для кнопки нужно создать код. Помогите написать код, очень прошу)

@Alex77755 · 09.11.2010, 08:25

Мне вообще-то немного боязно за подрастающее поколение: если они во время учёбы не хотят выполнять требования программы, то как они собираются работать и руководить производством?
Тоже перекладывать свои обязанности на других? Только одна надежда есть выйдет такой "специалист" замуж, родит ребёнка и будет его ростить. Но ведь место в ВУЗе занимает!

Visual Basic

Option Explicit
 
Private Sub Комманда1_Click()
 
Dim a As Integer
Dim b As Integer
Dim c As Integer
 
a = Текст1.Text
b = Текст2.Text
c = Текст3.Text
 
Метка1.Caption = -a
Метка2.Caption = -b
Метка3.Caption = -c
 
If a < b And b < c Then
Метка1.Caption = a ^ 2
Метка2.Caption = b ^ 2
Метка3.Caption = c ^ 2
End If
 
If a > b And b > c Then
Метка1.Caption = a
Метка2.Caption = a
Метка3.Caption = a
End If
 
End Sub

@Olga_Pak · 09.11.2010, 10:54 **[ТС]**

Спасибо Вам огромное! Вы мне очень помогли!

09.11.2010, 18:41

Здравствуйте!Помогите решить задачу,плиз!
Одна мастерская должна была сшить 800 костюмов, другая за тот же срок должна была сшить 900 костюмов. Первая закончила выполнение заказа за три дня до срока, вторая - за 6 дней до срока. Сколько костюмов в день шила каждая мастерская, если вторая мастерская шила в день на 4 костюма больше первой. В окне приложения предусмотреть ввод исходных данных.

@Olga_Pak 0 / 0 / 0 Регистрация: 08.11.2010 Сообщений: 4
		1
	Задания по Visual Basic 6.0 08.11.2010, 20:18. Показов 3967. Ответов 7 Метки нет (Все метки) Привет, помогите пожалуйста!!! Мне нужно решить задачку по VB, всего одну. Тема: "Условные переходы. Одномерные массивы". Вот задача: Даны целые числа a, b, c. Если a<b<c, то все числа заменить их квадратами, если a>b>c, то каждое число заменить наибольшим из них, в противном случае сменить знак каждого числа. 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	08.11.2010, 21:37	2
	Так дай хоть шанс тебе помочь! Начни что-то делать! 0

@Olga_Pak 0 / 0 / 0 Регистрация: 08.11.2010 Сообщений: 4
	08.11.2010, 21:43 [ТС]	3
	Так я поэтому и обратилась за помощью! Помогите начать! Пожалуйста) 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	08.11.2010, 21:55	4
	Даже не знаю чем можно помочь.. Сказать что начни с посещения лекций, практических занятий.. Ну в крайнем случае с простенькой книжечки. Как можно помочь человеку, который ничего не делает? Ну начни с того, что запусти программу VB6 и создай "Standart EXE" Брось на форму кнопку и напиши в создавшейся процедуре нужный тебе код. Если он будет работать не так, как тебе хотелось бы - скопируй код сюда и задай конкретный вопрос и тебе помогут разобраться 0

@Olga_Pak 0 / 0 / 0 Регистрация: 08.11.2010 Сообщений: 4
	08.11.2010, 22:40 [ТС]	5
	Проблема в том, что я не знаю какой код нужен, форму я создала, поместила три текстовых поля (для ввода чисел a, b, c) и три метки (соответственно, по условию задачи, если a<b<c, то в метках числа заменятся их квадратами, если a>b>c, то каждое число заменится наибольшим из них, в противном случае сменится знак каждого числа), поместила кнопку. Вот для кнопки нужно создать код. Помогите написать код, очень прошу) 0

@Olga_Pak 0 / 0 / 0 Регистрация: 08.11.2010 Сообщений: 4
	09.11.2010, 10:54 [ТС]	7
	Спасибо Вам огромное! Вы мне очень помогли! 0

Plotnic89
	09.11.2010, 18:41	8
	Здравствуйте!Помогите решить задачу,плиз! Одна мастерская должна была сшить 800 костюмов, другая за тот же срок должна была сшить 900 костюмов. Первая закончила выполнение заказа за три дня до срока, вторая - за 6 дней до срока. Сколько костюмов в день шила каждая мастерская, если вторая мастерская шила в день на 4 костюма больше первой. В окне приложения предусмотреть ввод исходных данных.