یک سوال ؟ لطفا راهنمایی کنید .

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

سوال : برنامه ای که سه شرط قرار دهیم . سپس در 3 عدد text box سه گزینه / قد / وزن / سن / را بگیرد و اگر این شرایط برقرار باشد بگوید قبول و اگر یکی از این شرایط برقرار نباشد بنویسد مردود .
این برنامه باید توسط تابع switch نوشته شود.

ممنون میشوم من را راهنمایی کنید.

امیدوارم منظورت همین باشه

کد:

---

    Cls
    Dim Vazn As String, Ghad As String, Sen As String
    Vazn = Switch(Text1.Text <= 100, "OK", Text1.Text > 100, "NO")
    Ghad = Switch(Text2.Text <= 180, "OK", Text2.Text > 180, "NO")
    Sen = Switch(Text3.Text <= 25, "OK", Text3.Text > 25, "NO")
    Print "Vazn="; Vazn
    Print "Ghad="; Ghad
    Print "Sen="; Sen

---