Загадка про Select Case

[tyomitch]

(Вроде не баян?)

В каких случаях эти фрагменты кода приводят к разным результатам?

Код: Выделить всё

Select Case x
Case y, z: MsgBox "Ура!"
End Select


Код: Выделить всё

Select Case x
Case z, y: MsgBox "Ура!"
End Select


[burik]

А разве могут быть разные результаты?

[dr.MIG]

Ну когда 'у' в одном случае набрана в русской раскладке, а в другом в аглицкой?
(хотя, если бы так, то вопрос был бы не в этом разделе...)

[FaKk2]

Наверняка оптимизация хромает. Но не факт
см. http://wasm.ru/article.php?article=1009002

[GSerg]

Мммм... Когда y и z -- экземпляры объектов, имеющие дефолтные свойства, причём y помнит внутри себя ссылку на z, а в коде его дефолтного property get стоит изменение значения, хранимого в z, так что последующий вызов дефолтного свойства z вернёт не то же значение, которое вернулось бы без предварительного вызова дефолтного свойства y.

[tyomitch]

GSerg, чересчур изощрённо
Можно куда проще.

[t116]

...в том случае, если

y=f(z)
z=f(y)

да?

[Lumen]

GSerg
Жжош

[tyomitch]

t116, не понял. Можно пример?

[Andrey Fedorov]

t116, не понял. Можно пример?

Он хотел лишь сказать что Y и Z функции...

[tyomitch]

Ну пусть функции, а пример-то какой?

[Mikle]

dim N

function Y()
Y=N
end function

function Z()
N=N+1
Z=N
end function

[tyomitch]

ок, а X?

[t116]

Ну, от X тут мало что зависит.

Пример, где X - известное число.
Подобрать его можно экспериментально, решив систему уравнений с переменными X, fY, fZ.

Первый вариант:

Код: Выделить всё

Dim X, Y, Z

Main()

X = 12

Select Case X
Case fY(), fZ(): Msgbpx ("Ура!")
End Select

End Sub

Function fY()
Y = 4 * Z
fY = Y
End Function

Function fZ()
Z = Y / 2
fZ = Z
End Function



Второй вариант:

Код: Выделить всё

Dim X, Y, Z

Main()
X = 12

Select Case X
Case fZ(), fY(): Msgbpx ("Ура!")
End Select

End Sub

Function fY()
Y = 4 * Z
fY = Y
End Function

Function fZ()
Z = Y / 2
fZ = Z
End Function


[tyomitch]

У меня оба варианта работают одинаково (не выдают никаких сообщений); у тебя иначе?

[t116]

Вот так:

Код: Выделить всё

Dim X, nY, nZ

Sub Main()

X = 4
nY = 1
nZ = 1

Select Case X
Case Y(), Z(): MsgBox ("Ура!")
End Select

End Sub

Function Y()
nY = 4 * nZ
Y = nY
End Function

Function Z()
nZ = nY / 2
Z = nZ
End Function


Если заменить Case Y(), Z() на Case Z(), Y() то результат будет отличаться.

[tyomitch]

Ок, зачтено....

Но мой вариант всё равно был проще

Код: Выделить всё

Sub Main()

Dim X, Y, Z
X = 42
Y = X
Z = CVErr(X)

Select Case X
Case Y, Z: MsgBox ("Ура!")
End Select

End Sub


[t116]

Ха! До такого я бы не додумался!

[tyomitch]

Второй раунд: придумать пример, когда Y и Z -- константы

[t116]

Окей! ...

[t116]

Вот:

Код: Выделить всё

Const Y = 10
Const Z = "Лалалала"
Dim X As Integer

Sub Main()

X = 10

Select Case X
Case Y, Z: MsgBox "Оба!"
End Select


End Sub


[tyomitch]

Угу.

[t116]

Кстати, по поводу первого раунда. Этот вариант еще проще твоего:

Код: Выделить всё

Sub Main()

X% = 10
Y$ = "Привет"
Z% = 10

Select Case X
Case Y, Z: MsgBox "Пока!"
End Select

End Sub


[t116]

А этот так вообще:

Код: Выделить всё

Sub Main()

Dim X%, Y%, Z$
Select Case X
Case Y, Z: MsgBox "Ура!"
End Select

End Sub


ЗЫ. Будет 3й раунд?
ЗЫЫ. Поспешил. Это мог бы быть третий раунд: решить задачу не используя оператор "=".

[iGrok]

Хм.. А в чем прикол-то? Ну подсовываете вы ему аргумент неправильного типа.. Ну ругается он на него.. =)

ИМХО пример с ф-циями от t116 и объектами от GSerg более "правильный"..

[t116]

Хм.. А в чем прикол-то? Ну подсовываете вы ему аргумент неправильного типа.. Ну ругается он на него.. =)

ИМХО пример с ф-циями от t116 и объектами от GSerg более "правильный"..

Прикол в том, что результат может быть каким угодно. В условии не сказано, что результат не может быть "ошибкой". Задача на логику.

[GM]

Вот собственно еще один вариант, с использованием прозрачных указателей

Код: Выделить всё

Option Explicit

Private Declare Sub PutMem1 Lib "msvbvm60" (ByVal pDst As Long, ByVal Src As Byte)
Public Sub CreateMagic(Pointer, PointedTo)
Dim lPtr As Long: lPtr = Pointer
Pointer = VarPtr(PointedTo) + 8
PutMem1 VarPtr(Pointer) + 1, &H40
PutMem1 VarPtr(PointedTo) + 1, &H40
Pointer = lPtr
End Sub

Sub s(pc, z)
Dim x As Long, y As Long
pc = VarPtr(y) - 36
z = 0&
Call CreateMagic(pc, z)
x = 10
y = Not x
z = x
Select Case x
Case y, z:  MsgBox "Ура!"
End Select
Select Case x
Case z, y: MsgBox "Ура!"
End Select
End Sub
Sub Main()
Dim pc As Variant, z As Variant
Call s(pc, z)
End Sub


Возможно, я где-то ошибся в плане VarPtr(y) - 36.
Но по идее, после первого сравнения изменяется стек и наше значение тоже меняется.