perché da errore

[genios]

perché da errore . Ciao Eugenio

Option Explicit
Sub Main
   Dim Numero
   Numero = 8
   Select Case Numero
   Case 1 To 8
      Scrivi " numero compreso tra 1 e 5 "
      ' Quella seguente è l'unica clausola Case che restituisce True.
   Case 6,7,8
      Scrivi "numero compreso tra 6 e 8 "
   Case 9 To 10
      Scrivi"numero Uguale a 9 o 10"
   Case Else
      Scrivi"numero Non compreso  tra 1 e 10 inclusi"
   End Select
End Sub

 

[Rookie]

Rileggi come funziona il costrutto Select/End Select e poi correggi <case 1 to 8> il quale crea ambiguitá visto che sembra debba restituire la stringa „numero compreso tra 1 e 5“