مثال دستور select

برنامه ای بنویسید که عددی را از ورودی دریافت نموده ، با استفاده از دستور Select Case در صورتیکه عدد دریافت شده 1 بود رنگ فرم به رنگ سبز و اگر عدد دریافت شده کوچکتر از صفر بود پیغام Warning و اگر عدد دریافت شده بین 10 تا 20 پیغام Ok در غیر اینصورت پیغام خطا Error نمایش دهد

Private Sub Command1_Click()

n = Val(InputBox(""))

Select Case n

  Case 1: Form1.BackColor = vbGreen

  Case Is < 0: MsgBox "warning"

  Case 10 To 20: MsgBox "OK"

  Case Else: MsgBox "error"

End Select

End Sub