To
语句修饰符,指定范围。
For iterator intial_value To ending_value
or
Select Case case_comparison_value
Case lower_bound To upper_bound
or
Dim variable_identifier ( lower_bound To upper_bound ) As type_specifier
To关键字用于定义某个数值范围。此关键字仅在与For ... Next，Case和Dim语句一起使用时有效。
在第一个语法中，To关键字定义For语句中迭代器的初始值和结束值。
在第二种语法中，To关键字定义Case比较的下限和上限。
在第三种语法中，To关键字定义Dim语句中的数组边界
有关详细信息，请参阅For...Next，Dim和Select Case.
语法
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 Selector
Dim variable_identifier ( lower_bound To upper_bound ) As type_specifier
说明
To关键字用于定义某个数值范围。此关键字仅在与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 "温度" ; it ; "处于低危险区" ; array( it ) ; "度！"
Case min_medium_danger To max_medium_danger
Color 14
Print "温度" ; it ; "在中危险区" ; array( it ) ; "度！"
Case min_high_danger To max_high_danger
Color 12
Print "温度" ; it ; "正处于危险地带" ; array( it ) ; "度！"
Case Else
Color 3
Print "温度" ; it ; "是安全的" ; array( it ) ; "度。"
End Select
Next it
Sleep
''阵列内的温度，并根据温度值确定输出
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 "温度" ; it ; "处于低危险区" ; array( it ) ; "度！"
Case min_medium_danger To max_medium_danger
Color 14
Print "温度" ; it ; "在中危险区" ; array( it ) ; "度！"
Case min_high_danger To max_high_danger
Color 12
Print "温度" ; it ; "正处于危险地带" ; array( it ) ; "度！"
Case Else
Color 3
Print "温度" ; it ; "是安全的" ; array( it ) ; "度。"
End Select
Next it
Sleep
与QB差别
- 没有
参考