| Вопрос: Or, Xor, Select Case | Добавлено: 07.08.03 09:07 |
Автор вопроса:  Morpheus | Web-сайт: xury.zx6.ru
|
|
Вот код сравнения с тремя процедурами - FirstVariant (Or), SecondVariant (Xor) и ThirdVariant (Select Case). Все они работают, но какой из них быстрее? Заранее благодарен. Dim Text1 As String Private Sub FirstVariant() If Text1 = "Morpheus" Or Text1 = "Yuri" Then MsgBox "It Works!" End Sub Private Sub SecondVariant() If Text1 = "Morpheus" Xor Text1 = "Yuri" Then MsgBox "It Works!" End Sub Private Sub ThirdVariant() Select Case Text1 Case "Morpheus" MsgBox "It Works!" Case "Yuri" MsgBox "It Works!" End Select End Sub |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:   POST Вопросов: 14 Ответов: 269 |
Web-сайт: Профиль | | #1 | Добавлено: 07.08.03 10:13 |
|
Ну третий расширительный, удобочитаемый. И потом в кейсе, если условие выполнено - последующие не проверются. Ор и Ксор не расширяются так же легко и не такие читабельные. На счет скорости... Засунь каждый вариант в цикл итераций на 1000 и сам смотри чего у тебя будет шустрее |
||
Только вместо боксов используй Debug.print какой-нить или бокс, но только по прошествии цикла.Страница: 1 |