●试题七
阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。
【说明】
某学校举办了一场奥运知识竞赛，参加竞赛的选手为200名，1~200为选手编号。竞赛时间为9：00～11：00。8道竞赛题目依次从"A"～"H"编号，选手可按任意次序答题，每完成一道题目，可立即提交答案。若答案正确(Y)，则选择其他题目进行解答，否则，可继续做该题目或选择其他题目进行解答，直至竞赛结束。
选手提交答案的情况及判定结果由专人即时录入，录入数据包括提交答案的时间、选手编号、题目编号(A～H)、是否正确(Y／N)等。
对竞赛情况进行统计和排名的规则如下：
1．若选手X在竞赛时提交的题目P解答正确，则解答该题目所用时间计算如下：
解答题目P的用时=提交题目P正确的时间-竞赛的开始时间+罚时罚时=提交题目P错误解答的次数×20例如：表1中14号选手在10：27提交了题目A的正确解答，因此该选手正确解答该题目所用时间P为87分钟，由于他在09：37和09：52两次提交了题目A的错误解答，因此罚时为(2×20)分钟=40分钟，所以14号选手解答题目A的用时=(87+40)分钟=127分钟。
2．已经提交正确答案的题目再次提交时不再计算。
3．竞赛结束时，选手的总用时为所有解答正确的题目用时累加所得，解答不正确的题目不计时。
4．排名时，完成题目数量多者排名靠前；若完成的题目数相同，则用时少者排名靠前；若完成的题目数和所用时间均相等，则名次相同；完成题目数为0的选手不参加排名。
本应用程序的运行窗口如图3所示。
图3
窗口中的两个文本框为Txt_time和Txt_player，分别用于录入提交答案的时间和选手编号。组合列表框Combol提供题目编号(A～H)，录入时从中选择。检查框Chk_yn用于输入解答是否正确信息。当单击"确定"按钮(Cmd_comfirm)时，录入的提交信息加入列表框Listl中，排名情况在列表框List2输出。单击"关闭"按钮时退出应用程序。
在开发过程中，需要编写的部分程序代码如下：
【程序】
Private Type Info
No As Integer′选手编号
Num As Integer′完成题目数量
Time As Integer′完成题目的总用时
d (8) As Integer′d用于记录提交第i个题目错误答案的次数
a (8) As Boolean′a用于记录第i个题目是否已经提交正确答案
End Type
Dim R(201)As info′R［j］用于统计编号为j的选手提交答案的情况
Dim MaxIndex As Integer′MaxIndex记录提交答案的选手中编号最大者
Private Sub Form_Load()
For i=1 to 8
Combo1．AddItem chr( (1) )
Next
Combo1．Text=Combo1．List(0)：txt_time．Text=""：txt_player．Text=""
For i=1 To 200
R(i)．num=0：R(i)．time=0：R(i)．no=i
Forj=1 To 8
R(i)．d(j)=0：R(i)．a(j)=False
Next j，i
End Sub
Private Sub cmd_confirm_Click()
Dim h，m，k，time As Integer，ch，pass，s1 As String
K=Instr(txt_time．text，"∶")：If k<2 Then Goto error1
H=Val(Left(txt_time．Text，k-1))：m=Val(Mid(txt_time．Text，k+1))
If h>11 Or h=11 And m>0 Or m>=60 Then goto errorl
Time= (2) ′计算答题时间，以分钟为单位
If txt_plater．text<1 or txt_player．text>200 Then Goto error1
ch= (3)
pass=IIf(chk_yn． (4) =0，"N"，"Y")
s1=txt_time．Text+Space (4) +txt_player．Text
s1=s1+Space(10-Len(txt_player．Text))+ch+Space (8) +pass
List1．Additem s1
K=Val(txt_player．Text)′k为选手编号
R(k)．no=k′编号为k的选手的提交信息记录在下标为k的数组元素中
If k>maxindex Then maxindex=k
M=Asc(ch)-Asc("a")
If pass<>"Y"Then′编号为k的选手提交第m个题目的解答不正确
R(k)．d(m)=R(k)．d(m)+1
Else If R(k)．a(m)<>True Then′已经提交正确的题目的解答不再计算
R(k)．a(m)=true：R(k)．num=R(k)．num+1
R(k)．time=R(k)．time+ (5)
Call statistic′调用过程statistic进行实时排名和输出
End If
Exit Sub
error1：MsgBox"录入信息有错误!"，vbOKOnly
End Sub
