Select...Case Statement

Handaarate hornyo aana irkire mitto woy mittunni ale fooliishshote taysha tiranno.

Ganallo:


keezete ikkito keezete handaara Foolishsho Taysha [Keezete handaara2 Foolishshote Taysha][Wole keeze] Foolishshote Taysha Gudi Doori

Eishshuwa:

Ikkito: muli keeze qaale aantanno fooliishshote taysha loosantino gedeenni qorqortanno handaara.

Handaara: Ikkitote dani handaara ledo xaaddanno handaara. Foolishshote keezete qaali aantanno fooliishshote taysha loosantannohu Ikkito Handaara xaaddurooti.

Lawishsha:


Sub ExampleRandomSelect
Dim iVar As Integer
    iVar = Int((15 * Rnd) -2)
    Select Case iVar
        Case 1 To 5
            "1 nni 5 geeshsha noo kiiro" attami
        Case 6, 7, 8
            "6 nni 8 geeshsha noo kiiro" attami
        Case 8 To 10
            "8nni ale noo kiiro" attami
        Case Else
            "1 nni 10te hakkigeeshsho gobbaanni" attami
    End Select
End Sub