Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: ВНИМАНИЕ!!!!!!! ВОПРОС!!!!!!!! Всем читать!!!!!!!! Добавлено: 21.01.08 16:22  

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

Ответить

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

Номер ответа: 16
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #16 		Добавлено: 22.01.08 00:20
Так как Return вызывает выход из функции,то:
Function GetName() As String
Dim i As Integer
For i = 0 to 1
If i = 1 then Return "Artyom" & ControlChars.CrLf & "Call"
Console.WriteLine("Call";)
Next i
End Function

Ответить

Номер ответа: 17
Автор ответа:
 vito



Разработчик Offline Client

Вопросов: 23
Ответов: 879
  Web-сайт: softvito.narod2.ru
 Профиль | | #17 		Добавлено: 22.01.08 00:21
Да задачка с подковыркой:)
Выполняются - в смысле выполняют действия.
А нужно вернуть строку и вывести на консоль Call

Ответить

Номер ответа: 18
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #18 Добавлено: 22.01.08 13:29
[10] Executioner:

For i = 0 to 1
  If i = 1 Then
    Return "Artyom" & ControlChars.CrLf & "Call"
  Else
    Console.WriteLine("Call";)
  End If
Next

Молодец! Правильно!

[11] Executioner:
Function GetName() As String
  Call WriteCall()
  Return "Artyom" & ControlChars.CrLf & "Call"
End Function

Sub WriteCall()
  Console.WriteLine("Call";)
End Sub

Тоже верно! Очень интересное решение!

[16] Winand:
Function GetName() As String
Dim i As Integer
For i = 0 to 1
If i = 1 then Return "Artyom" & ControlChars.CrLf & "Call"
Console.WriteLine("Call";)
Next i
End Function

Молодец, верно.

Ответить

Номер ответа: 19
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #19 		Добавлено: 22.01.08 15:45
хм... а так можно? =)
Function GetName() As String
  Console.WriteLine("Call";)
  Return "Artyom" & ControlChars.CrLf & "Call"
  Console.WriteLine("Call";)
End Function

Ответить

Номер ответа: 20
Автор ответа:
 vito



Разработчик Offline Client

Вопросов: 23
Ответов: 879
  Web-сайт: softvito.narod2.ru
 Профиль | | #20 		Добавлено: 22.01.08 15:52
Executioner

Ну все, выиграл:)
Будешь теперь с Брандом о Ктулху беседы вести.

2. Бранд.
Что ты хочешь сказать этой задачей?
И зачем ты возвращаешь строку - Return "Artyom" & ControlChars.CrLf & "Call"
Если нужно вывести дополнительно Call, то это делается элеметарно.
А если фишка не в этом.... Ну и дурь у тебя:) Высший класс!

Ответить

Номер ответа: 21
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #21 Добавлено: 22.01.08 16:13
И зачем ты возвращаешь строку - Return "Artyom" & ControlChars.CrLf & "Call"

Да суть не в том ЧТО возвращать.
Если тебе хочется пусть будет

Return "Ctulhu"
Console.WriteLine("Call";)

Ответить

Номер ответа: 22
Автор ответа:
 vito



Разработчик Offline Client

Вопросов: 23
Ответов: 879
  Web-сайт: softvito.narod2.ru
 Профиль | | #22 		Добавлено: 22.01.08 16:16
Аааа... Тогда да.:)

Ответить

Номер ответа: 23
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #23 		Добавлено: 22.01.08 17:42
вошел во вкус =)
Sub main()
    GetName 0
Sub

Function GetName(i As Byte) As String
    If i = 0 Then GoTo 1
    Return "Artyom" & ControlChars.CrLf & "Call"
1:
    Console.WriteLine ("Call";)
    Call GetName(1)
End Function

Ответить

Номер ответа: 24
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #24 		Добавлено: 23.01.08 21:05
Кхм, а нахрен было использовать GoTo?
А если Функшн заменить на Проперти, то _наверное_ можно так
Sub main()
   Dim s As String
   GetName = "Cons"
   s = GetName
Sub

Property GetName() As String
   Get
      Return "Artyom" & ControlChars.CrLf & "Call"
   End Get
   Set(ByVal Value As String)
      Console.WriteLine ("Call";)
   End Set
End Property

Ответить

Номер ответа: 25
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #25 		Добавлено: 23.01.08 21:08
а хотя нет, нельзя=) Return же не работает в Property, да?

Ответить

Номер ответа: 26
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #26 		Добавлено: 23.01.08 21:30
Не знаю. Просто хотелось привести пример с рекурсией =)

Ответить

Номер ответа: 27
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #27 Добавлено: 23.01.08 22:06
[23] Executioner:
вошел во вкус =)

Sub main()
    GetName 0
Sub

Function GetName(i As Byte) As String
    If i = 0 Then GoTo 1
    Return "Artyom" & ControlChars.CrLf & "Call"
1:
    Console.WriteLine ("Call";)
    Call GetName(1)
End Function

Идея верна. Но есть ошибка. Найдешь какая?

2 Winand
Return в Property работает. В прицнипе код верный, хотя жутковатый :)

Ответить

Номер ответа: 28
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #28 		Добавлено: 23.01.08 22:14
Sub main()
    GetName 0
End Sub

Function GetName(i As Byte) As String
    If i = 0 Then GoTo 1
    Return "Artyom" & ControlChars.CrLf & "Call"
1:
    Console.WriteLine ("Call";)
    Call GetName(1)
End Function

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам