问答题
【应用说明】
某电视台拟开发应用程序来显示戏曲大赛中1～4号四位选手决赛的现场投票情况。该程序从现场观众中(不超过2000人)每0.5秒收集一次对这四位选手的支持票数，并在屏幕上动态显示这四位选手的票柱(以高度反映票数)与累计得票数，如图2-3所示。投票过程限时30秒，每名观众最多为1名选手投票。投票结束后系统通过比较各位选手的累计得票数，显示决赛结果：“*号胜出”(如有单个冠军)或“继续进行PK”(如有多人获得相同的最高票数)。
在开发该程序的过程中创建的主要控件及其初始属性值说明如下：
| 控件名 | 类型 | 用途 | 初始属性设置 |
| ShpM(1to4) | 形状数组 | 显示各选手得票情况 | 矩形，实心，高度0 |
| txtM(1to4) | 文本框数组 | 显示各选手得票数 | 0 |
| cmdStatr | 命令按钮 | 启动计票 | 标题：开始投票 |
| txtResult | 文本框 | 显示决赛结果 | 空 |
| Timl | 计时器 | 每半秒收集处理一次 | 间隔时间0.5秒，关闭状态 |
该程序中设置公共变量T动态记录投票时间。四个形状ShpM(1 to 4)动态增长的底线固定。
【Visual Basic程序代码】
Dim T As Integer ’声明全局变量
Private Sub Form_Load()
For i=1 To 4
ShpM(i).Top=2000 : ShpM(i).Height=0 ’初始票柱高度为0
TxtM(i).Text=0
Next i
Timl.Enabled=False : Timl.Interval=500 : T=0
End Sub
Private Sub CmdStart Click()
Timl.Enabled=True ’开始投票
CmdStart.Enabled=False
End Sub
Private Sub Timl Timer()
Dim n(1 To 4) As Integer ’n(1 to 4)为每次收集的票数
Dim i As Integer，j As Integer
Dim G As Integer ’G用于计算最高票数
Dim ng As Integer ’ng用于计算冠军个数
For i=1 To 4
n(i)=... ’收集i号选手的票数，此处省略
TxtM(i).Text=TxtM(i).Text+n(i) ’累计票(VB能进行自动转换)
ShpM(i).Top=ShpM(i).Top-n(i)
ShpM(i).Height=ShpM(i).Height+
(1) ’算出票柱高度
Next i
T=T+1 ’计时
If T=60 Then ’投票时间到
(2) ’停止数据收集处理
ng = 1
G=TxtM(1).Text
For i=2 To 4
If G＜TxtM(i).Text Then
G=TxtM(i).Text
ng=
(3) j = i
Else
If G=TxtM(i).Text Then ng=
(4) ’计算冠军个数
End If
Next i
If ng=1 Then
txtResult. Text=
(5) ’单个冠军结果
Else
txtResult. Text="继续进行PK"
End If
End If
End Sub
