题目内容

本文认为刘邦和项羽都是“英雄”，请从“英雄”的角度比较他们的不同之处。

查看答案

搜索结果不匹配？点我反馈

更多问题

(即)之寺僧，则史公可法也。

实现电子商务最主要的因素是技术问题。()

电子邮件可以让你使用远程主机的命令和程序()

阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。
应用说明
某单位举办了一场知识竞赛，有300名选手参加竞赛，依次从1～300为选手编号。竞赛时间为9:00～11:00。8道竞赛题目依次从“A”～“H”编号，选手可按任意次序答题，每完成一道题目，可立即提交答案。若答案正确(Y)，则选择其他题目进行解答，否则，可继续做该题目或选择其他题目进行解答，直至竞赛结束。
选手提交答案的情况及判定结果由专人即时录入，录入数据包括提交答案的时间、选手编号、题目编号(A～H)、是否正确(Y/N)。
对竞赛情况进行统计和排名的规则如下：
1．若选手X在竞赛时提交的题目P解答正确，则解答该题目所用时间如下计算：
解答题目P的用时=提交题目P正确的时间-竞赛的开始时间+罚时
罚时；提交题目P错误解答的次数×20
例如：设14号选手在10:27提交了题目A的正确解答，则该选手正确解答该题目所用时间为87分钟，由于他在09:37和09:52两次提交了题目A的错误解答，因此罚时为2×20=40分钟，所以14号选手解答题目A的用时=87+40=127(分钟)。
2．已经提交正确答案的题目再次提交时不再计算。
3．竞赛结束时，选手的总用时为所有解答正确的题目用时累加所得，解答不正确的题目不计时。
4．排名时，完成题目数量多者排名靠前；若完成的题目数相同，则用时少者排名靠前：若完成的题目数和所用时间均相等，则名次相同；完成题目数为0的选手不参加排名。
本应用程序的运行窗口如下图所示：
窗口中的两个文本框为Txt_time和Txt_player，分别用于录入提交答案的时间和选手编号。组合列表框Combol提供题目编号(A～H)，录入时从中选择。检查框Chk yn用于输入解答是否正确信息。当单击“确定”按钮(Cmd_comfirrn)时，录入的提交信息加入组合列表框Listl中，排名情况在列表框List2输出。单击“关闭”按钮时退出应用程序。
在开发过程中，需要编写的部分程序代码如下：程序代码
Private Tyve Info
no As Integer '选手编号
hum As Integer '完成的题目数量
time As Integer '完成题目的总用时
d(8) As Integer 'd[i]用于记录提交第i个题目错误答案的次数
a(8) As Boolean 'aC[i]用于记录第i个题目是否已经提交正确答案
End Type
Dim R(301) As Info 'R[j]用于统计编号为j的选手提交答案的情况
Dim Maxlndex As Integer 'MaxIndex记录提交答案的选手中编号最大者
Private Sub Form_Load()
For i=1 To 8
Combol.Addltem Chr((1) )
Next
Combol.Text = Combol.List(0): Txt_time. Text= "": Txt_player. Text= ""
For i = 1 To 300
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 Crud_confirm_Click()
Dimh, m, k, time As Integer, ch, pass, sl As String
k = InStr(Txt_time.Text, ":"): If k ＜ 2 Then GoTo errorl
h = Val(Left(Txt_time. Text, k - 1 )): m = Val(Mid(Txt_time. Text, k + 1 ))
Ifh ＞ 11 Or h = 11 And m ＞ 0 Or m ＞= 60 Then GoTo errorl
time=(2) '计算答题时间，以分钟为单位
If Txt player. Text ＜ 1 Or Txt_player. Text＞ 300 Then GoTo errorl
ch=(3) '取题目编号
pass = llf(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
Listl .Addltem s1
k = Val(Txt_player. Text) 'k为选手编号
R(k).no = k '编号为K的选手的提交信息记录在下标在K的数组元素中
If k ＞ Maxlndex Then Maxlndex = k
m = Asc(ch) - Ase("A")
Ifpass ＜＞ "Y" Then '编号为K的选手提交第m个题目的解答不正确
R(k).d(m) = R(k).d(m) + 1
Elself R0(k).a(m) ＜＞ True Then '已经提交正确的题目的解答不再计算
R(k).a(m) = True: R(k).num = R(k).num + I
R(k).time = R(k).time +(5)
Call Statistic '调用过程 Statistic 进行实时排名和输出
End If
Exit Sub
errorl: MsgBox "录入信息有误!", vbOKOnly
End Sub