例62：打印危险温度区间-CSDN博客

本文链接：https://blog.csdn.net/u010763140/article/details/148711109

建立一个按制台程序：

'该程序使用绑定变量以及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