For iterator intial_value To ending_value

statement(s).

Next [ iterator ]
or
Select Case case_comparison_value
Case lower_bound To upper_bound

statement(s).

End Select
or
Dim variable_identifier( lower_bound To upper_bound ) As type_specifier

Ключевое слово используется для определения определенного числового диапазона. Это ключевое слово действует только при использовании с операторами For ... Next, Case и Dim.

В первом синтаксисе, ключевое слово To определяет начальные и конечные значения итератора в операторе For.

Во втором синтаксисе, ключевое слово To определяет нижнюю и верхнюю границы для сравнений Case.

В третьем синтаксисе, ключевое слово To определяет границы массива в операторе Dim

Для получения дополнительной информации см. For...Next, Dim и Select Case.

'' эта программа использует связанные переменные вместе с ключевым словом TO, чтобы создать массив, хранящий случайную
'' температуру внутри массива, а также определить вывод, основанный на значении температуры
Randomize Timer

'' определить минимальное и максимальное число создаваемых температур
Const minimum_temp_count As Integer = 1
Const maximum_temp_count As Integer = 10

'' определить диапазон температурных зон, в которых бактерии быстро размножаются (в градусах)
Const min_low_danger As Integer = 40
Const max_low_danger As Integer = 69
Const min_medium_danger As Integer = 70
Const max_medium_danger As Integer = 99
Const min_high_danger As Integer = 100
Const max_high_danger As Integer = 130

'' определить массив для хранения температуры с помощью наших констант мин/макс, ограничивающих диапазон границ
Dim As Integer array( minimum_temp_count To maximum_temp_count )

'' объявить цикл, который выполняет итерацию от минимального до максимального значения наших констант
Dim As Integer it
For it = minimum_temp_count To maximum_temp_count

   array( it ) = Int( Rnd( 1 ) * 200 ) + 1

   '' отобразить сообщение в зависимости от температуры, используя наши границы опасной зоны мин/макс
   Select Case array( it )
      Case min_low_danger To max_low_danger
         Color 11
         Print "Temperature" ; it ; " is in the low danger zone at" ; array( it ) ; " degrees!"
      Case min_medium_danger To max_medium_danger
         Color 14
         Print "Temperature" ; it ; " is in the medium danger zone at" ; array( it ) ; " degrees!"
      Case min_high_danger To max_high_danger
         Color 12
         Print "Temperature" ; it ; " is in the high danger zone at" ; array( it ) ; " degrees!"
      Case Else
         Color 3
         Print "Temperature" ; it ; " is safe at" ; array( it ) ; " degrees."
   End Select

Next it

Sleep

• нет
  
  

• For...Next
  
• Dim
  
• Select Case