كشف If...Then...Else (Visual Basic)
بشكل شرطي يقوم بتنفيذ مجموعة من الكشوف, استناداً إلى قيممة التعبير.
If condition [ Then ]
[ statements ]
[ ElseIf elseifcondition [ Then ]
[ elseifstatements ] ]
[ Else
[ elsestatements ] ]
End If
-or-
If condition Then [ statements ] [ Else [ elsestatements ] ]
الأجزاء
condition
مطلوبة. تعبير. يجب أن يقيم True أو False، أو إلى نوع بيانات يمكن تحويلها ضمنيًا إلى Boolean.Then
مطلوب في نموذج خط واحد, اختياري في النموذج متعدد الخطوط..statements
اختياري. كشف واحد أو أكثر يتبع If... Then التي يتم تنفيذها إذا condition تقيم إلى True.elseifcondition
مطلوب إذا كان ElseIf موجود. تعبير. يجب أن يقيم True أو False، أو إلى نوع بيانات يمكن تحويلها ضمنيًا إلى Boolean.elseifstatements
اختياري. كشف واحد أو أكثر يتبع ElseIf... Then التي يتم تنفيذها إذا elseifcondition تقيم إلى True.elsestatements
اختياري. كشف واحد أو أكثر التي يتم تنفيذها إذا لم يسبق بـ condition أو elseifcondition التعبير يقيم إلى True.End If
ينهي الكتلة If....Then....Else.
ملاحظات
يمكنك استخدام نموذج الخط الواحد اختبارات قصيرة, بسيطة. ومع ذلك، يوفر نموذج متعدد الخطوط بنية ومرونة أكثر من نموذج الخط الواحد النموذج ويكون عادةً أكثر سهولة للقراءة الاحتفاظ به وتصحيحه.
عند مصادفة متعدد الخطوط If... Then... Else , condition يتم اختباره. اذا كان condition هو True، يتم تنفيذ الكشوف التي تلي Then . اذا كان condition هو False، كل كشف ElseIf يتم تنفيذه بالترتيب. عند ايجاد Trueelseifcondition يتم تنفيذ الكشوف مباشرة تلي Then المقترنة به. اذا لم يكن هناك elseifcondition يقيم الى True أو لم يكن هناك كشوف ElseIf ,الكشوف التي تلي Else يتم تنفيذها. بعد تنفيذ الكشوف التي تلي Then, ElseIf، أو Else، يستمر التنفيذ مع الكشف الذي يلي End If.
.gif "تلميح") تلميح |
|---|
عبارة Visual Basic) Select...Case) ربما يكون أكثر فائدة عند تقييم تعبير واحد الذي يحتوي على العديد من القيم المحتملة. |
في نموذج الخط الواحد، من المحتمل أن يكون لديك عدة كشوف يتم تنفيذها كنتيجة ل If... Then القرار. يجب أن تكون كل الكشوف على نفس الخط و يتم فصلها بواسطة الفواصل. يوضح المثال التالي هذا.
If A > 10 Then A = A + 1 : B = B + A : C = C + B
في نموذج متعدد الخطوط كشف If يجب أن يكون الكشف الوحيد فقط على الخط الأول. كشوف ElseIf, Else، و End If يمكن أن تسبق فقط بواسطة تسمية الخط.. القطعة متعددة الخطوط If... Then... Else يجب أن تنتهي بـكشف End If .
لتحديد ما إذا كان كشف If يقدم نموذج متعددة الخطوط، قم بفحص ما يلي الـكلمة الأساسية Then . في حالة ظهور أي شيء آخر غير تعليق بعد Then في نفس الكشف, يتم معاملة الكشف كخط مفرد If الكشف. اذا كانThen غير موجود, يجب أن تكون بداية خط متعدد If... Then... Else.
عبارات ElseIf و Else تكون كلاهما اختياري. يمكن أن يكون لديك العديد من ElseIf العبارات كما تريد في خط متعدد If... Then... Else، ولكن لا يمكن لأحد أن تظهر بعد Else الجملة. النماذج ذات أسطر متعددة يمكن أن تتداخل ضمن بعضها البعض.
مثال
يظهر المثال التالي كلا نماذج لسطر متعددة و سطر مفرد من كشف If... Then... Else .
Dim number, digits As Integer
Dim myString As String
number = 53
If number < 10 Then
digits = 1
ElseIf number < 100 Then
digits = 2
Else
digits = 3
End If
If digits = 1 Then myString = "One" Else myString = "More than one"
في المثال السابق، الشرط ElseIf يقيم إلى True، و digits يتم تعيينه الى القيمة ٢. تقوم العبارة الأخيرة بتعيين قيمة "أكثر من واحد" إلى myString.
راجع أيضًا:
المهام
كيفية القيام بما يلي: كشوف التنفيذ اعتماداً على شرط واحد أو أكثر
المرجع
عبارة Visual Basic) Select...Case)