جلسه پنجم- دستور شرطی IF در محیط ویژوال بیسیک

جلسه پنجم                   دستورهای شرطی(if then else)

ساختار اولیه وساده: 

if       شرط         then

دستورات

end if

 

 

مثال: در سلول A1 عددی قرار دارد که سن شخصی را نشان میدهد. میخواهیم با توجه به سن در سلول B1 پیغامی بنویسیم

Sub grade()

 

If Range("a1") >= 17 Then

Range("b1") = "good"

End If

 

End Sub

 

 ساختار کامل دستور شرطی If

If شرط1then

دستورات

Elseif 2شرط  then

دستورات

 

Elseifشرط آخر  then

دستورات

 

 

Else

       دستورات

Endif

 

 

مثال:برنامه ای بنویسید که برای نمرات بالای 17 عبارت A بین 17 تا 14 عبارت B  و کمتر از 14 عبارت Cرا تایپ نماید.

 

جواب:

Sub grade()

 

If Range("a1").Value >= 17 Then

\           Range("b1").Value = "A"

ElseIf Range("a1").Value < 17 And Range("a1").Value >= 14 Then

Range("b1") = "B"

Else

Range("b1").Value = "C"

End If

End Sub

/ 2 نظر / 767 بازدید
محمد

ممنون از مطالب مفیدتان.اگر امکان دارد جلسات اول و دوم را هم روی سایت قرار دهید و منابع دیگری نیز در این زمینه معرفی نمایید.با تشکر

محمدرضا

خیلی این مطلب برای من مفید بودتشکر به خاطر وبلاگ خوبتون