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

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

Автор вопроса: 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

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

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

Номер ответа: 1 Автор ответа: kuka Вопросов: 3 Ответов: 5	Профиль \| \| #1	Добавлено: 24.02.11 22:56
	кто-нибудь отзовитесь!!!!очень нужно((( Ответить

Номер ответа: 2 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #2	Добавлено: 24.02.11 23:05
	Чувак, дай поспать Ответить

Номер ответа: 3 Автор ответа: kuka Вопросов: 3 Ответов: 5	Профиль \| \| #3	Добавлено: 24.02.11 23:06
	не не не))))и я не чувак)а помощь действительно нужна,а то я пропала( Ответить

Номер ответа: 4 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #4	Добавлено: 25.02.11 00:31
	Public Sub Бо() Dim x, y As Single x = Range("A1").Value If x = "зима" Then y = 2.5 ElseIf x = "весна" Then y = 3.5 ElseIf x = "лето" Then y = 5 ElseIf x = "осень" Then y = 3 End If MsgBox y End Sub Милая, теперь можно я посплю? Ответить

Номер ответа: 5 Автор ответа: kuka Вопросов: 3 Ответов: 5	Профиль \| \| #5	Добавлено: 25.02.11 13:53
	Спасибо огромное!!! Ответить

Страница: 1 |