VBNet - Форум - помогите,плиз,с простенькой задачкой

Вопрос: помогите,плиз,с простенькой задачкой Добавлено: 24.02.11 22:43

Автор вопроса: kuka

Составить программу выпуска прохладительных напитков в зависимости от времени года:
зима-2,5 млн литров,весна 3,5 млн литров,лето- 5 млн литров,осень-3 млн литров
исходные данные (время года) прочитать из ячейки А1 листа Excel,а кол-во напитков вывести диалоговым окном

вот что получается у меня и ничего не работает..
Public Sub âûïóñê()
Dim x, y As Single
x = Range("A1").Value
If x = Çèìà Then
y = 2.5
Else
If x = Âåñíà Then
y = 3.5
Else
If x = Ëåòî Then
y = 5
Else
If x = Îñåíü Then
y = 3
End If
End If
MsgBox "y"
End Sub

помогите,пожалуйста!!!

Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #1	Добавлено: 24.02.11 23:56
	НИЧЕГО НЕ РАБОТАЕЕЕ!! Ну может количество End If должно таки совпадать с количеством If? А лучше так: if blabla1 then <...> elseif blabla2 then <...> elseif blabla3 then <...> else <...> end if Ответить

Номер ответа: 2 Автор ответа: kuka Вопросов: 3 Ответов: 5	Профиль \| \| #2	Добавлено: 25.02.11 00:04
	спс))только как это потом в диалоговое окно вывести? Ответить

Номер ответа: 3 Автор ответа: DimBi Вопросов: 15 Ответов: 55	Профиль \| \| #3	Добавлено: 25.02.11 14:02
	if blabla1 then y = 3 elseif blabla2 then y = 3,5 elseif blabla3 then y = 5 else y = 2,5 end if MsgBox (str(y),"инфо") Ответить

Номер ответа: 4 Автор ответа: kuka Вопросов: 3 Ответов: 5	Профиль \| \| #4	Добавлено: 25.02.11 14:04
	спасибо) Ответить

Страница: 1 |