从下 * * 道试题(试题5至试题7)中任选1道解答。如果解答的试题数超过1道，则题号小的1道解答有效。
阅读以下应用说明及Visual Basic程序，根据要求回答问题1至问题2。
[说明]
某Visual Basic应用程序用于监测某种锅炉设备内液面高度(0～50cm)，其运行窗口界面如图4-16所示。
图4-16 某锅炉设备液面高度显示界面
在图4-16中，设计了一个高度计(矩形形状shpMeter)及其中指示当前液面高度的水银柱(矩形形状shpT)，文字标签标记了液面高度的刻度；另有一个图片框picCurve，用于动态描述检测到的液面高度曲线(用户见到的曲线与水银柱等高变化)；[开始](CmdStart)按钮用于启动液面高度检测，命令按钮“暂停”(CmdStop)用于暂停液面高度检测。
液面高度计形状控件shpMeter是固定的，其属性FillsStyle默认为透明。矩形形状shpT(水银柱)的 Visible属性初始设置为不可见，属性Filltype设置为Solid(实心)，FillColor设置为红色；图片框picCurve的属性AutoRedraw设置为True；程序设计过程中，创建了一个定时器TimT，属性Enabled初始设置为 False(不可用)，属性Interval(定时间隔)的值应设置为 (1) 。
为模拟锅炉设备液面高度的检测，程序中利用了(0，1)之间均匀分布的伪随机数获得[0，50]之间的随机液面高度WH。为便于在图片框picCurve中绘制曲线，程序中对该图片框建立了如下坐标系统：图片框的左上角定义为原点(0，0)，水平向右方向为X轴，垂直向上方向为Y轴，右下角坐标为(50.200)。为了便于观察记录的液面高度值，图片框中从上到下创建了7条水平虚线Ls(i)，i=0，1…6，并在程序中按等间隔排列进行位置设置。应用程序中每隔3秒算出曲线点(x, y)，其中x=O，1，2……，再用直线段连接各相邻曲线点形成液面高度曲线。
[Visual Basic程序代码]
Dim (2) AS Integer ’试题全局变量
Private Sub CmdStart_Click()
TimT.Enabled = (3)
ShpT.Visible = True
End Sub
Private Sub CmdStop_Click()
TimT.Enabled = False
End Sub
Private Sub Form_Load( )
Dim i,S As Integer
PicCurve.Scale (0,0)-(50,200) ’设置图片框坐标系：左上角-右下角
S = 25 ’H等于图片框高度的1/8
For i = 0 To 6 ’设置7条水平线Ls(i)的位置
Ls(i).X1 = 0 ’Ls(i)起点横坐标
Ls(i).Y1 = (4) ’Ls(i)起点纵坐标
Ls(i).X2 = 50 ’Ls(i)终点横坐标
Ls(i).Y2 = Ls(i).Y1 ’Ls(i)终点纵坐标
Ls(i).BorderColor = &H00FCFCFC ’设置水平线颜色
(5)
x = 0’设置曲线坐标初值
End Sub
Private Sub timT_Timer ( )
Dim WH, H As Integer’WH为实时液面高度，H为图片框中液面高度点显示高度
WH = Int(Rnd * 51) ’随机模拟产生锅炉内液面高度(0～50 cm)
H = ShpMeter.Height * (6) ’算出水银柱的高度
ShpT.Top = (7) ’设置水银柱顶部位置
ShpT.Height = H ’设置水银柱的高度
’绘制液面高度曲线
y = (8) ’算出曲上当前点的纵坐标
If x ＝ 51 Then ’当超出图片框时
PicCurve. Cls ’清框图片框内以前画的曲线
(9)
ElseIf x ＞ 0 Then’除左边点外
PicCurve. Line (x-1,Lasty)-(x,y),vbRed ’由前1点到当前点画红色线段
End If
x = x + 1 ’准备下一点坐标
Lasty = y ’保存当前坐标供下次使用
End Sub
