не могу написать программу((

@Little_ · Регистрация: 05.01.2011

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

Помогите, пожалуйста, написать программу в Visual Basic..
Даны три числа x,y,z. Вычислить p=max (x,y,z)...

@Little_ · 28.01.2011, 19:35 **[ТС]**

пишет, что ошибка.. выделяет x в четвертой строке..

@~~Busine2009~~ · 28.01.2011, 19:37

Little_,
в первые три TextBox будем вводить x, y, z.
Поместите в переменную x текст из первого TextBox, в переменную y текст из второго TextBox, а в z - текст из третьего TextBox.

@Little_ · 28.01.2011, 19:40 **[ТС]**

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

@~~Busine2009~~ · 28.01.2011, 19:42

Little_,
сначала надо в коде написать, что помещаете в переменные данные их TextBox, а после запуска программы будете вводить в TextBox числа.

@Little_ · 28.01.2011, 19:44 **[ТС]**

а как это записать?

@~~Busine2009~~ · 28.01.2011, 19:45

Visual Basic

1	x = Text1.Text

@Little_ · 28.01.2011, 19:51 **[ТС]**

Private Sub Form_Load()
Dim x As Single, y As Single, z As Single
Dim max As Single
x = InputBox("Введите x")
y = InputBox("Введите y")
z = InputBox("Введите z")
If x > y And x > z Then
max = x
ElseIf y > x And y > z Then
max = y
Else
max = z
MsgBox "U=" + CStr(U)
End If
End SubДобавлено через 1 минуту
вот я переделала немного.. сейчас при запуске вылазит поле для ввода значений.. но в итоге выдает в ответе просто U.. что то нужно добавить, чтобы он рассчитывал и выдавал конечное число..

@~~Busine2009~~ · 28.01.2011, 19:53

Вместо этого

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

"U=" + CStr(U)

вот это

Visual Basic

max

@Little_ · 28.01.2011, 19:57 **[ТС]**

напишите пожалуйста полностью эту строку.. что именно нужно исправить..

@~~Busine2009~~ · 28.01.2011, 19:58

Visual Basic

1	MsgBox "U=" + CStr(U)

на это

Visual Basic

1	MsgBox max

@gaw · 28.01.2011, 19:59

Visual Basic

Private Sub Form_Load()
Dim x As Single, y As Single, z As Single
Dim max As Single
x = InputBox("вводим x")
y = InputBox("вводимy")
z = InputBox("вводим z")
If x > y Then max = x Else max = y
If max < z Then max = z
MsgBox "max=" + CStr(max)
 
End Sub

@Little_ · 28.01.2011, 20:04 **[ТС]**

теперь вообще не выдает ответ..

Добавлено через 3 минуты
все, запустилась.. спасибо большое за помощь.

@~~Busine2009~~ · 28.01.2011, 20:05

Вот это надо сделать предпоследней строкой:

Visual Basic

1	MsgBox max

@gaw · 28.01.2011, 20:05

Visual Basic

Private Sub Form_Load()
Dim x As Single, y As Single, z As Single
Dim max As Single
x = Val(InputBox("вводим x", , 1))
y = Val(InputBox("вводимy", , 2))
z = Val(InputBox("вводим z", , 3))
If x > y Then max = x Else max = y
If max < z Then max = z
MsgBox "max=" & CStr(max)
End Sub

@~~Busine2009~~ · 28.01.2011, 20:10

Little_,
а откуда у вас VB 6.0?

@Little_ 0 / 0 / 0 Регистрация: 05.01.2011 Сообщений: 25
	28.01.2011, 19:35 [ТС]	21
	пишет, что ошибка.. выделяет x в четвертой строке.. 0

@~~Busine2009~~ Заблокирован
	28.01.2011, 19:37	22
	Little_, в первые три TextBox будем вводить x, y, z. Поместите в переменную x текст из первого TextBox, в переменную y текст из второго TextBox, а в z - текст из третьего TextBox. 0

@Little_ 0 / 0 / 0 Регистрация: 05.01.2011 Сообщений: 25
	28.01.2011, 19:40 [ТС]	23
	ничего не поняла.. когда запускаю программу, вылазит окно с текст букс, кнопкой комманд и лэйбл.. сюда что ли нужно вводить? 0

@Little_ 0 / 0 / 0 Регистрация: 05.01.2011 Сообщений: 25
	28.01.2011, 19:44 [ТС]	25
	а как это записать? 0

@Little_ 0 / 0 / 0 Регистрация: 05.01.2011 Сообщений: 25
	28.01.2011, 19:51 [ТС]	27
	Private Sub Form_Load() Dim x As Single, y As Single, z As Single Dim max As Single x = InputBox("Введите x") y = InputBox("Введите y") z = InputBox("Введите z") If x > y And x > z Then max = x ElseIf y > x And y > z Then max = y Else max = z MsgBox "U=" + CStr(U) End If End SubДобавлено через 1 минуту вот я переделала немного.. сейчас при запуске вылазит поле для ввода значений.. но в итоге выдает в ответе просто U.. что то нужно добавить, чтобы он рассчитывал и выдавал конечное число.. 0

@Little_ 0 / 0 / 0 Регистрация: 05.01.2011 Сообщений: 25
		1
	не могу написать программу(( 28.01.2011, 18:06. Показов 2223. Ответов 34 Метки нет (Все метки) Помогите, пожалуйста, написать программу в Visual Basic.. Даны три числа x,y,z. Вычислить p=max (x,y,z)... 0

@~~Busine2009~~ Заблокирован
	28.01.2011, 19:42	24
	Little_, сначала надо в коде написать, что помещаете в переменные данные их TextBox, а после запуска программы будете вводить в TextBox числа. 0

@Little_ 0 / 0 / 0 Регистрация: 05.01.2011 Сообщений: 25
	28.01.2011, 19:57 [ТС]	29
	напишите пожалуйста полностью эту строку.. что именно нужно исправить.. 0

@Little_ 0 / 0 / 0 Регистрация: 05.01.2011 Сообщений: 25
	28.01.2011, 20:04 [ТС]	32
	теперь вообще не выдает ответ.. Добавлено через 3 минуты все, запустилась.. спасибо большое за помощь. 0

@~~Busine2009~~ Заблокирован
	28.01.2011, 20:10	35
	Little_, а откуда у вас VB 6.0? 0